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1. Erstellen von Bildschirm- 
masken mit FORMS 


Allgemeines 


FORMS (form screen) ist ein Maskengenerator, mit dem Sie interaktiv Bild- 
schirmmasken erstellen können. Die besonderen Vorteile des Maskengene- 
rators liegen in der Verfügbarkeit aller Komforteinrichtungen, die zum Ent- 
wurf einer Bildschirmmaske notwendig sein können. 


Der Aufruf des Maskengenerators FORMS 


FORMS wird vom Editor aus mit der Funktionstaste [F2) aufgerufen, worauf 
das folgende Bild am Bildschirm erscheint: 


|Forming-new-forn-Text-Attribute-0000-ARGB-886-Cursor-9101-Ins-Caps-Nun-Scroll | 
|F1=help F2=text/data F3/F4=insert/delete-line F5=repeat-line F6=restore-line | 
IF7=retype-char F8=restore-char F9=repeat-ch Fiß=paint-attr Alt Ctrl Escape 


Das 3zeilige Menü zeigt, daß FORMS aktiv ist und die Maskendefinition nun 
beginnen kann. 
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Die Entwicklung einer Bildschirmmaske 


Soll eine bestehende Bildschirmmaske geladen werden, so kann dies mit 
(Alt)+({F3) (load form) durchgeführt werden. Sowohl beim Laden als auch 
beim Sichern einer Bildschirmmaske sucht FORMS immer nach einer Datei 
mit dem angegebenen Namen und der Erweiterung (.FRM). 


Ansonsten sind Sie nun aufgefordert, Ihre Maskendesigns vorzunehmen. Da- 
bei können 25 Bildschirmzeilen (in PERSONAL COBOL nur 21) zu je 80 
Spalten benutzt werden. Sollten die unteren 4 Zeilen für die Maske benötigt 
werden, kann das FORMS-Menü mit ausgeblendet werden, die 
gleiche Tastenkombination blendet es wieder ein. 


Sollten mehrere Masken hintereinander definiert werden, so muß die Ar- 
beitsmaske mit (Alt)+[(F6) gelöscht, dann mit der Definition der neuen be- 
gonnen werden. 


Für FORMS besteht eine Bildschirmmaske aus 3 Bestandteilen, die Sie be- 
stimmen können: 


1. Texte: 


dies sind bestimmte feststehende Informationen, die Sie an belıe- 
biger Stelle des Bildschirmes festlegen können. Sie stellen Kopf- 
und Fußdaten dar und insbesonders Leittexte für die Führung des 
Benutzers. 


2. Daten: 


dies sind die Eingabefelder (Variablen), in denen der Benutzer 
bestimmte Eingaben während der Programmausführung machen 
kann. 


3. Attribute: 


darunter versteht man die Eigenschaft, wie ein Zeichen am Bild- 
schirm dargestellt werden soll, z.B. die Farbe, die Helligkeit oder 
das Blinken. Die Attribute können sowohl für die Darstellung der 
Texte als auch für die der Variablen benutzt werden. 
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Erstellen von Bildschirmmasken mit FORMS 


Erstellen von Texten 


Die Texte können sofort eingegeben werden, sobald FORMS aktiviert ist. Bei 
der Erstellung von Texten bringen die folgenden Einrichtungen einige Er- 
leichterung für die Arbeit: 


= Cursorposition: 


Die aktuelle Cursorposition kann jederzeit in Zeile 22 angesehen 
werden. 


iForming-new-forn-Text-Attribute-PAR8-ARGR-BB6-Cursor- B181-Ins-Caps-Nun-Scroll 


Zeilennumner | L_ Spaltennunner 
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Attribute: 


Die aktuellen Attribute sind ebenfalls in Zeile 22 zu sehen. Diese 
können jederzeit mit (Alt)+ ([F7), (Fe), oder [F18)) geändert 
werden. Bestimmen Sie also zuerst die Attribute, dann können 
Sie gleich mit dem aktuellen Attribut am Bildschirm schreiben. 
Sollten Sie sich doch für eine andere Farbe entscheiden, nachdem 


die Texte geschrieben worden sind, so wählen Sie die Farbe und 
fahren mit über den Text. 


Forming-new-forn-Text-Attribute-PRd-ORGR-B06-Cursor- era! Ins"Caps-Nun-Scroll 
Fi=help F2=attr-on/off F3=load-form F4=save-form Fongenerate" COBO 
jF6=clear-form F7=blink F8=background F9=intensity FIß=foreground 


Das Attribut-Menü ist mit der [Alt)-Taste zu erreichen 
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s» Draw-Menü: 


Das Draw-Menü wird mit aufgerufen und bietet mit 
Hilfe der 4 Cursortasten die Möglichkeit, Diagramme, Block- 
graphik und Windows zu zeichnen. 


Forming-new-forn-Text-Attribute-Qd08-ARGR-BB6-Cursor- B1Q01-Ins-Caps-Nun-Scroll 
Fi=help F2=draw/erase F3=1/# F4zjoin/over/under Alternate Esca 
( 


e 
de >t=erase Shift+4e >t=cursor (Numlock = reverses this) Ctri+End=menu-on/off 


Das Draw-Menü ist mit zu erreichen 
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= Sonderzeichen: 
FORMS unterstützt auch alle Sonderzeichen, die nicht auf der 
Tastatur zu sehen sind. Das Menü dafür wird mit (Ctrı)+ ([F3), 
(F4), (F5)) gesteuert, um ein beliebiges Zeichen des 255er Vorrats 
in die Maske einzugeben. 


Beispiel: 


Hier wurde die Maske PGM01.FRM erstellt: 


Ratenberechnung 


Hypothekendarlehen ----> 
Zinssatz ----) 


Laufzeit ----) 


Monatsrate 


Programmende (J/N) ? N 


Angezeigt sind hier Texte, die während der Programmausführung nicht geän- 
dert werden können. 
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Erstellen von Variablen (Daten) 


Um nun die notwendigen Variablen eingeben zu können, schaltet man mit 
auf Data-Mode um. Auf dem Bildschirm erscheint das folgende Menü: 


|Forming-nev-forn-Data —————— ——— — — Cursor- 8101—Ins-Caps-Nun-Scroll 
Fi=help F2=text/data F3/F4=insert/delete-line F5=repeat-line F6=restore-line 
F7=retype-char F8=restore-char F9=repeat-char Alternate Ctr1l Escape 
X:Y:9:8=data-char B:9:/:,:.:+:-:CR:DB:$=insertion-char Z:*:+:-:$=replace-zeros 


Es können beliebig viele Variablen .mit einer Länge von mindestens 1 Byte 
und maximal 2000 Bytes definiert werden. Hierzu kann man alle verfügbaren 
Datenklassen in COBOL verwenden. 


Im Data-Mode dürfen nur die mit Hervorhebung in Zeile 25 angezeigten 
Symbole verwendet werden. Diese sind: 


= X Y als Symbole zur Definition eines alphanumerischen Da- 
tenfeldes, 


„= 9 8 als Symbole zur Definition eines numerischen Datenfeldes, 


= BO /.,+-CRDB[ als Einfügungszeichen in druckaufberei- 
teten Datenfeldern, 


= *Z +-[ als Ersatzzeichen für führende Nullen in numerischen 
Datenfeldern. 
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Die Länge eines Feldes wird festgelegt, indem man soviele Symbole hinter- 
einander eingibt, wie das Feld lang sein soll. 


Der einzige Unterschied zwischen X und Y bzw. 9 und 8 besteht darin, wenn 
zwei Felder unmittelbar hintereinander definiert werden sollen; dann muß 
das eine mit dem Symbol X und das andere mit dem Symbol Y bzw. mit 9 
und 8 definiert werden, z.B. 


XXXXXXXXYYYYYYYY 


9999888888 


Beachten Sie bitte, daß sobald auf Text-Mode mit [F2) umgeschaltet wird, alle 
Variablen ausgeblendet werden. Sie sind aber nach wie vor vorhanden und 
können jederzeit mit [F2) wieder angezeigt werden. 


Variablen können auch an den gleichen Stellen definiert werden, an denen 
Texte geschrieben sind. Diese Möglichkeit sollte man ausnutzen, wenn man 


z.B Vorschlagswerte (Default-Konzept) der Variablen vergeben möchte. 


Diese Möglichkeit ist deshalb gegeben, da die von FORMS generierten 
Strukturen überlappt sind. 
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Das Beispiel zeigt: 


Im Text-Mode 


Programmende (J/N) ? N 


Im Data-Mode 


Programmende (J/N) ? 
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Beispiel: 


Die Bildschirmmaske PGM01.FRM wurde im Data-Mode um die folgenden 
Variablen erweitert: 


Ratenberechnung 


Hypothekendarlehen ----> 222.222,22 
Zinssatz ----) 22,222% 


Laufzeit ----)> 22 Jahre 


Monatsrate = 222.222,22 DM 


Programmende (J/N) ? X 
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Generieren der COBOL-Datendefinitionen 


Nachdem nun die Maske fertiggestellt ist, wird sie nun mit (Alt)+[F4) ge- 
sichert. 


Die Generierung von COBOL-Datendefinitionen kann vom Generate- 
COBOL-Menü ((Alt)+(EF5)) aus mit Hilfe der (F2)-Taste vorgenommen wer- 
den. FORMS erstellt eine Datei mit dem Maskennamen und der Erweiterung 
(.DDS = data definition set), welche die generierten Strukturen enthält. In 
unserem Beispiel heißt sie PGM01.DDS. Eine COPY-Anweisung mit dem 
Dateiname wird an der aktuellen Cursorposition (nur zeilenmäßig) im Editor 
eingefügt, z.B. 


COPY "PGM01.DDs". 


Der Inhalt dieser Datei ist vom Inhalt der Bildschirmmaske abhängig, es 
können maximal 3 Strukturen generiert werden: 


=» XXXX-00-ATTR 


Wobei swooooxx der Maskenname ist. Diese Struktur enthält die 
Bildschirmattribute und wird nur dann erzeugt, wenn mindestens 
ein Byte mit einem Nichtstandard-Attribut geschrieben worden 
ist. 


= KXKXKRXX-00 


Diese Struktur wird generiert, wenn mindestens ein Zeichen im 
Text-Mode eingegeben worden ist. Sie besteht aus FILLER-FEel- 
dern und Feldern, deren Namen aus den Maskennamen und der 
Position des jeweilgen Feldes (Zeile und Spalte) bestehen, z.B. 


PGM01-00-0101 
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Für unser Beispiel beinhaltet die PGM01.DDS-Datei die folgenden Datende- 
finitionen: 
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21 


21 


Damit ist gewährleistet, daß jedes Feld einen eindeutigen Namen 


erhält. 


KKXXX-0U1 


Diese Struktur wird auch nur dann generiert, wenn mindestens 
eine Variable im Data-Mode eingegeben worden ist. Sie hat 
einen ähnlichen Aufbau mit der Struktur xxxooox-00 und ist mit 


ihr durch die REDEFINES-Klausel überlappt. 


03 


03 
03 
03 
83 
83 
03 
83 
03 
83 
03 
03 
03 
83 
03 
03 
03 
03 
03 
83 
03 
03 
03 
03 
03 


PGMA1-BB-ATTR. 
FILLER 
PGMd1-088 


PIC 


xX(2080) VALUE 


PGMO1-B8-B101 PIC X(0856) VALUE 


FILLER 
PGMd1-08-8201 
FILLER 
PGMd1-08-0256 
FILLER 
PGMd1-88-0301 
FILLER 
PGMd1-09-0321 
FILLER 
PGMB1-89-0356 
FILLER 
PGMO1-88-9401 
FILLER 
PGMB1-08-0456 
FILLER 
PGMd1-08-0591 


FILLER 
PGMd1-08-08601 
FILLER 
PGMd1-09-0656 
FILLER 
PGMB1-08-0701 
FILLER 


PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 


PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 


X(0824). 
X(8001) VALUE 
X(8854). 
X(8881) VALUE 
X(0024). 
X(8081) VALUE 
X(8819). 
X(8815) VALUE 
X(0828). 
X(00881) VALUE 
X(0024). 
X(8881) VALUE 
X(8854). 
X(8881) VALUE 
X(0824). 
X(0056) VALUE 
X(8824). 
X(8001) VALUE 
X(8854). 
X(0881) VALUE 
X(8824). 
X(8881) VALUE 
X(8054). 


ALL X”83”. 


03 
03 
83 


PGMB1-08-0756 
FILLER 
PGMB1-08-0801 


”__. 


03 
03 
03 
03 
03 
83 
B3 
B3 
03 
03 
03 
03 
03 
83 
83 
03 
83 
03 
03 
03 
03 
03 
03 
03 
03 
D3 
03 
03 
B3 
03 
B3 
03 
83 
03 
D3 
83 
83 
03 
83 
03 
03 
03 
03 


FILLER 
PGMd1-80-0856 
FILLER 
PGMd1-00-8991 
FILLER 
PGMd1-08-8956 
FILLER 
PGMd1-08-10881 
FILLER 
PGMd1-88-10823 
FILLER 
PGMd1-88-1056 
FILLER 
PGMB1-88-1181 
FILLER 
PGMB1-88-1156 
FILLER 
PGMB1-08-12801 
FILLER 
PGMd1-88-1223 
FILLER 
PGMO1-88-1256 
FILLER 
PGMB1-088-1381 
FILLER 
PGMO1-88-1356 
FILLER 
PGMB1-88-14891 
FILLER 
PGMO1-88-1456 
FILLER 
PGMd1-88-1581 
FILLER 
PGMd1-88-1556 
FILLER 
PGMd1-88-1681 
FILLER 
PGMB1-88-1656 
FILLER 
PGMd1-88-1781 
FILLER 
PGMd1-88-1727 
FILLER 
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PIC 
PIC 
PIC 


PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 


X(8881) VALUE 
X(0824). 
X(0027) VALUE 
X(0028). 
X(8891) 
X(8824). 
X(8881) 
X(0854). 
X(8801) 
X(0824). 
X(8811) 
X(8811). 
X(8813) 
X(0820). 
X(0881) 
X(0824). 
X(8881) 
X(0854). 
X(8881) 
X(0824). 
X(8811) 
X(BP11). 
X(8815) 
X(0818). 
(8881) 
X(0824). 
X(8881) 
X(8054). 
X(8881) 
X(0824). 
X(8801) 
X(8854). 
X(8801) 
X(8024). 
X(8881) 
X(8054). 
X(8891) 
X(0024). 
X(8801) 
x(8054). 
X(8801) 
X(0824). 
X(8813) 
X(8813). 
X(0881) 
X(8813). 


VALUE 


VALUE 


VALUE 


VALUE 


VALUE 


VALUE 


VALUE 


VALUE 


VALUE 


VALUE 


VALUE 


VALUE 


VALUE 


VALUE 


VALUE 


VALUE 


VALUE 


VALUE 


VALUE 


VALUE 


VALUE 


"| Hypothekendarlehen 


"| Zinssatz”. 


"_----) 


u 


"| Laufzeit”. 


"_---) 


Jahre”. 


"| Monatsrate”. 
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21 


83 
03 
03 
03 
03 
03 
83 
83 
03 
03 
03 
03 
83 
83 
03 
03 
03 
83 
83 


PGMBd1-88-1741 
FILLER 
PGMB1-89-1756 
FILLER 
PGMd1-88-1891 
FILLER 
PGMd1-89-1856 
FILLER 
PGMd1-88-1901 
FILLER 
PGMd1-88-1956 
FILLER 
PGMd1-88-2881 


FILLER 
PGMB1-88-2101 

FILLER 
PGMd1-99-2156 

FILLER 
PGMd1-08-2201 


” N” . 


83 
03 
03 
03 
83 
03 
03 
03 
03 
03 
03 
03 


FILLER 
PGMd1-88-2256 
FILLER 
PGMd1-88-2301 
FILLER 
PGMd1-88-2356 
FILLER 
PGMd1-08-2401 
FILLER 
PGMd1-00-2456 
FILLER 
PGMd1-00-2581 


PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 


PIC 
PIC 
PIC 
PIC 
PIC 
PIC 


PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 


X(8882) VALUE 
X(8813). 
X(0881) VALUE 
X(8024). 
X(88d1) VALUE 
X(8854). 
X(8801) VALUE 
X(8824). 
X(8881) VALUE 
X(8854). 
X(0801) VALUE 
X(0824). 
X(8856) VALUE 
X(0824). 
X(8081) VALUE 
X(0854). 
X(0081) VALUE 
X(8024). 
X(8824) VALUE 


X(0831). 
x(0001) VALUE 
X(0824). 
X(8881) VALUE 
X(8854). 
X(8881) VALUE 
X(0824). 
X(8881) VALUE 
X(0854). 
X(8881) VALUE 
X(0824). 
X(0056) VALUE 


” u" 


83 


03 
D3 
03 
03 
83 
03 
03 
03 
03 
03 


FILLER 
PGMO1-81 
FILLER 
PGMd1-91-0829 
FILLER 
PGMd1-91-1829 
FILLER 
PGMd1-91-1229 
FILLER 
PGMd1-81-1729 
FILLER 
PGMB1-81-2224 


PIC 


REDEFINES 


PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 


X(8824). 
PGMd1-08 
X(8588). 
222.277,22. 
X(8158). 
22,2ZZ. 
X(8154). 
22. 
X(8398). 
222.222,22. 
X(0385). 
X(8891). 


"DM ” . 


"| Programmende (J/N)? 
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NAMESCREEN 


Für die nichtsprechenden Namen, insbesonders die der Variablen in der 
Struktur PGM-01, kann das MICRO FOCUS-Produkt NAMESCR.EXE 
verwendet werden. Das Produkt erlaubt dem Benutzer, über ein Menü Feld- 
namen selbst festzulegen. 


Nach dem Aufruf des NAMESCR erscheint am Bildschirm: 


Namescr-V1.6.1 


| LOAD-Screen_————— 10011 
Fi=Help F2=Directory Escape 
Enter screen-name PGMB1 then press 4 
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Nach Eingabe des Maskennamen (hier PGMO01) wird die Maske geladen und 
auf dem Bildschirm wie folgt angezeigt: 


Ratenberechnung 


Hypothekendarlehen ----> - 


Zinssatz ----) % 
Laufzeit ----) Jahre 


Monatsrate 


NAMESCREEN fordert Sie nun auf, Datennamen für die festgelegten Varia- 
blen der Reihenfolge nach anzugeben. Dabei wird die aktuelle Variable, de- 
ren Name jetzt eingegeben werden soll, durch das Symbol neben "THIS" ge- 
kennzeichnet. 


Nach Beendigung der Definitionen erstellt NAMESCREEN eine Datei mit 
dem angegebenen Maskennamen und der Dateierweiterung .CPY. Diese 
Datei enthält eine Redefinition auf dem bereits definierten Bereich PGMO1- 
00. Die Redefinition selbst weist die angegebenen Feldnamen an den entspre- 
chenden Positionen aus. 
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In unserem Beispiel beinhaltet die Datei PGM01.CPY die folgenden Daten- 
definitionen: 


01 PGMD1-082 redefines PGMO1-00. 
03 FILLER PIC X(0588). 
053 DARLEHEN PIC 222.222,22. 
053 FILLER PIC X(0150). 
053 ZINSSATZ PIC 22,222. 
05 FILLER PIC X(0154). 
853 LAUFZEIT PIC 22. 
853 FILLER PIC X(0398). 
053 MONATSRATE PIC 222.222,22. 
03 FILLER PIC X(0385). 
03 KENNZEICHEN PIC X(09001). 


Hierzu muß im Quellprogramm eine COPY-Anweisung für diese Datei auf 
die ursprüngliche COPY-Anweisung (COPY "PGM01.DDS") folgen. 


Dies sieht wie folgt aus: 


COPY "PGM®1.DDS". 
COPY "PGMO1.CPY". 
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Generieren der COBOL-Anweisungen 


Nach der Generierung der Datendefinitionen befindet man sich automatisch 
im Editor. Nun muß der Cursor in der PROCEDURE DIVISION an der 
Zeile positioniert werden, an der die COBOL-Anweisungen eingefügt werden 
sollen. Mit gelangt man wieder in FORMS, um anschließend mit die 
COBOL-Anweisungen zu generieren. 


PGMd1. 
DISPLAY SPACE UPON CRT. (1) 
MOVE 20008 TO IO-LENGTH. (2) 
MOVE 1 TO SCREEN-OFFSET BUFFER-OFFSET. (3) 


CALL SCREEN-IO USING WRITE-ATTR FORM-PARAMS (4) 
PGMd1-00-ATTR. 


DISPLAY PGMdO1-00 UPON CRT. (5) 
ACCEPT PGM®O1-981 FROM CRT. (6) 
PGMO1-END. 


Die generierten Anweisungen sind im einzelnen: 
(1) Bildschirm löschen 
(2) Setzen des Längenfelds zum Senden der Attribute auf 2000. 


(3) Setzen der Bildschirm- und der Pufferposition zum Senden der At- 
tribute auf 1. 


(4) Aufruf der Assembler-Unterroutine X"B7" zum Senden der Attri- 
bute (Siehe für Detailinformation Kap. 4). 


(5) Anzeigen aller Texte aus der Struktur PGM-00. 


(6) Empfangen aller Variablen aus der Struktur PGM-01. 
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Diese Anweisungen erfordern die Definition einiger Datenfelder, die bereits 
in einer Datei mit dem Namen "Skeleton.cbl" vorhanden sind. 


*x%% Skeleton Program for use with PROFESSIONAL COBOL FORMS. #*%*% 


WORKING-STORAGE SECTION. 


* The following fields will be required if you use FORMS (F2) 
* to generate procedure code for screens using attributes. 


81 SCREEN-IO PICX 
di MWRITE-ATTR PIC 99 
81 FORM-PARAMS. 

83 10-LENGTH PIC 9(4) 


03 SCREEN-OFFSET PIC 9(4) 
83 BUFFER-OFFSET PIC 9(4) 


VALUE X”B7”. 
COMP VALUE 3. 


COMP. 
COMP. 
COMP. 


* Put cursor here before entering FORMS (F2) to design your form 


* and generate "data-descriptions”. 


* Remember to move cursor down past PROCEDURE DIVISION heading 
* before re-entering FORMS to generate ”procedure-statements”. 


PROCEDURE DIVISION. 


%* Put cursor here for "procedure-statements”. 


EXIT PROGRAM. 
STOP RUN. 
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Tastenfunktionen in FORMS 


Tastenfunktionen in FORMS 


8 


tee © 


3 


—z 
oO 
3 
o® 
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Positioniert den Cursor um ein Zeichen nach 
links. 


Positioniert den Cursor um ein Zeichen nach 
rechts. 


Bewegt den Cursor eine Zeile nach oben. 
Bewegt den Cursor eine Zeile nach unten. 


Backspace - löscht das Zeichen links vom 
Cursor. 


Insert - wenn diese Taste eingeschaltet wird, 
wird der eingegebene Text an der Stelle einge- 
fügt, an der der Cursor gerade steht. 


Delete - löscht das Zeichen, auf dem der 
Cursor gerade steht. 


Home - beim ersten Drücken wird der Cursor an 
den Anfang der aktuellen Zeile bewegt. 

Beim zweiten Drücken wird der Cursor auf den 
Anfang des Bildschirmes bewegt. 


End - funktioniert wie Home, jedoch in Rich- 
tung auf das Bildschirmende. 


Tab - bewegt den Cursor 4 Zeichen vorwärts. 


Backtab- bewegt den Curs. 4 Zeichen rückwärts. 


Enter - bewegt den Cursor an den Anfang der 
nächsten Zeile. 
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Auswahlmöglichkeiten in FORMS 


Auswahlmöglichkeiten in FORMS 
Text-Erstellung (F2=text) 
BE) - Hilfsfunktion 


- schaltet zwischen Text- und Daten- 
mode um. Im Textmode können nur Konstanten 
erstellt werden. Sie gelangen nach der Generie- 
rung von COBOL-Strukturen in die Struktur 
Maske-880. Im Datenmode können nur Variablen 
erstellt werden. 


Sobald von einem Mode zum anderen umgeschaltet 
wird, gehen die bisher gelöschten Zeilen oder 
Zeichen verloren. Sie können also nicht mehr 
mit bzw. wiederhergestellt werden. 


- Einfügen einer Leerzeile vor der 
aktuellen Zeile. 


- Löschen der aktuellen Zeile. Jede 
gelöschte Zeile kann mit [F6) zurückgeholt wer- 
den. 


- Verdoppeln der aktuellen Zeile. 
Durch abwechselndes Drücken von und 
kann ein Block kopiert werden. 


BERIITEESETTE - Wiedergabe der zuletzt ge- 


löschten Zeile. Durch mehrmaliges Betätigen 
dieser Taste können alle bisher gelöschten 
Zeilen wiedergegeben werden. 
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Auswahlmöglichkeiten in FORMS 


- Wiedergabe des zuletzt mit 
"Backspace" gelöschten Zeichens. 


meer -— Wiedergabe des zuletzt mit "Del" 
gelöschten Zeichens. 


- Wiederholen des zuletzt eingege- 
benen Zeichens an der aktuellen Cursorposition. 
Die Wiederholung erfolgt immer in der Schreib- 
richtung, die zuletzt mit festgelegt 
worden ist (horizontal bzw. vertikal). 


- Überschreibt das Attribut des 
Zeichens, auf dem der Cursor gerade steht, mit 
dem aktuellen Bildschirmattribut. Das letzte 
ist in der Informationszeile 22 angezeigt. 


Diese Funktion ist besonders sinnvoll und muß 
immer dann angewandt werden, wenn Variablen mit 
unterschiedlichen Attributen angezeigt werden 
sollen. 

Variablen werden in Daten-Mode grundsätzlich 
mit Standardattributen geschrieben und können 
nun mit verändert werden. 
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Auswahlmöglichkeiten in FORMS 


- halten Sie die Alt-Taste gedrückt 
und drücken Sie auf eine der nachfolgenden 
Tasten, um die danebenstehende Funktion zu 
erreichen: 


- Hilfsfunktion 
Nee - schaltet das aktuelle Attri- 


but ein oder aus. 


Wenn das Attribut eingeschaltet ist, wird 
jedes eingegebene Zeichen mit dem aktuellen 
Attribut geschrieben; das aktuelle Attribut 
ist in Zeile 22 angezeigt. 


Wenn das Attribut ausgeschaltet ist, wird 
jedes eingegebene Zeichen mit dem Standard- 
attribut geschrieben; die Anzeige des 
aktuellen Attributs in Zeile 22 wird unter- 
drückt. 


- lädt eine bereits existierende 
Bildschirmmaske vom aktuellen Laufwerk. 


Beim Laden und Sichern von Masken wird nur 
nach Dateien mit der Erweiterung (.FRM) 
gesucht. 


ea) - Hilfsfunktion 

- Einblenden des Directory- 
Menüs (1. Stufe). Siehe das Directory- 
Menü anschließend. 


EEFEISS] - beendet das Load-Form-Menü 


IBER]| - Laden der angezeigten Maske 


1-23 


Erstellen von Bildschirmmasken mit FORMS 


Auswahlmöglichkeiten in FORMS 


BE] - Hilfsfunktion. 

BERGE) - Einblenden des Directory- 

Menüs (1. Stufe). Siehe das Directory- 

Menü anschließend. 

BELEITZ - Beenden des Save-file-Menüs. 

BEWE - Sichern der angezeigten Maske 
Berne -— fordert die Generierung 
von COBOL-Datendefinitionen und/oder 


Anweisungen zum Senden und Empfangen einer 
bestimmten Maske auf. 


BEE] - Hilfsfunktion 


re - Einblenden des Directory- 
Menüs (1. Stufe). Siehe das Directory- 
Menü anschließend. 


eereig] - Beenden des Generate-COBOL- 
Menüs ohne Generierung. 


- wählt den eingegebenen 
Namen als Dateinamen für die 
generierten COBOL-Datendefinitionen. 


Hierbei kann auch ein anderer Name für 
die Datendefinitionen gewählt werden, 
der nicht mit dem Maskennamen 
identisch ist. 
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Auswahlmöglichkeiten in FORMS 


Ma) - Hilfsfunktion. 


DEREN - generiert die 


notwendigen COBOL-Datendefini- 
tionen für diese Maske. 


jopefefeg-Teibi a Bann - ZENETIErT 


die COBOL-Anweisungen, die zum 
Senden und Empfangen der Maske 
notwendig sind. 


- erstellt ein 


vollständiges COBOL-Programm zum 
Erstellen und Aktualisieren von 
index-sequentiellen Dateien. 


EELENTS- Beenden des Generate- 
COBOL-Menüs ohne Generierung. 
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Auswahlmöglichkeiten in FORMS 
Text-Erstellung (F2=text) 


- schaltet ein Menü zum Löschen 
eines bestimmten Bestandteils der Maske 
ein. 

Ist die Maske bisher noch nicht gesichert 
worden, erscheint die Frage (Clear without 
saving? Y/N). Wird die Frage mit yes beant- 
wortet, so bleibt trotzdem die Maske 
erhalten und was gelöscht werden soll, kann 
aus dem nächsten Menü bestimmt werden. 


BE) - Hilfsfunktion 


Ba] - löscht alle Texte, die im Text- 
Mode eingegeben worden sind, aus der 
aktuellen Maske. 


Kezesragmaeur - setzt diegesamte 


Bildschirmmaske auf das aktuelle 
Attribut, welches in der Informations- 
zeile 22 angezeigt ist. 


BEIE) - löscht alle Variablen, die im 
Daten-Mode eingegeben worden sind, aus 
der aktuellen Maske. 


EBEl - löscht den ganzen Bildschirm 
samt Texten und Variablen und setzt 
das aktuelle Attribut auf 
Standardattribut 


EEIEIT] - beendet das Lösch-Menü ohne 
Löschen. 
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Auswahlmöglichkeiten in FORMS 


- schaltet das Blinken im aktuellen 
Attribut ein oder aus (zu sehen am Wort 
"ATTRIBUTE" in Zeile 22). 


- schaltet alle verfügbaren 
Hintergrundattribute hintereinander ein. 


- schaltet die hohe Licht- 
intensität ein oder aus. 


- schaltet alle verfügbaren 
Vordergrundattribute hintereinander ein. 
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Auswahlmöglichkeiten in FORMS 


Sana - halten Sie die [Ctrl)-Taste gedrückt 
und drücken Sie auf eine der nachfolgenden 
Tasten, um die danebenstehende Funktion zu 
erreichen: 


BE) - Hilfsfunktion 


- schaltet die Schreibrichtung 
des Cursors zwischen horizontal und verti- 
kal um. Diese Einrichtung ist besonders 
wertvoll, wenn ein Zeichen nach unten 
wiederholt werden soll. 


Die ee Beschreibung gilt für die 


Tasten , und [(B5): 

Wenn eine dieser Tasten gedrückt wird, 
erscheint ein Band in der Länge von 255 
Bytes, auf dem sich alle Zeichen des PC 
befinden. Gleichzeitig können allerdings 
nur 88 Zeichen in Zeile 25 gesehen werden. 
Das Band ist standardmäßig auf das Zeichen 
01 (hex) positioniert. Dies ist an der 
Hervorhebung des Zeichens durch hohe Licht- 
intensität als aktuelles Zeichen zu sehen. 
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Auswahlmöglichkeiten in FORMS 


Text-Erstellung (F2=text) 


- macht das linke Zeichen vom 
aktuellen Zeichen zum aktuellen Zeichen. 
Wenn die Scroll-Lock-Taste eingeschaltet 
ist, bewegt sich das Band nach links, 
ansonsten bewegt sich die Hervorhebung 
nach links. 


- wie (EB), jedoch kann hier ein 
Zeichen rechts vom aktuellen Zeichen zum 
aktuellen Zeichen gemacht werden. 


- wählt das aktuelle Zeichen, 
d.h. das Zeichen wird an der aktuellen 
Cursorposition am Bildschirm geschrieben. 


draw - schaltet ein Menü zum Zeichnen von 
Linien ein. 


ME) - Hilfsfunktion 


- schaltet zwischen Zeich- 
nen und Löschen von Linien um. 


ID schaltet zwischen einfacher und 
doppelter Linie um. 


Ks ankeiag - schaltet zwischen 


verschiedenen Darstellungsarten für 
Linien, die sich überschneiden, un. 


EEFEIE - beendet das Zeichnungs-Menü, 
kehrt zum Hauptmenü d. Editors zurück. 
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Auswahlmöglichkeiten in FORMS 


DEE - mit den Cursor-Tasten kann 
man nun Linien in der Richtung des 
Cursors zeichnen oder löschen, je 
nachdem, ob "draw" oder "erase" ein- 
schaltet ist. 


SEI) - bewegt den Cursor ohne zu 


zeichnen oder zu löschen. 


wechselt die Funktion der Cursor- 
Tasten zwischen ihrer Wirkung mit 
oder ohne Shift-Taste ab. 


- schaltet das Menü ein 


oder aus. 
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Auswahlmöglichkeiten in FORMS 


- Überträgt den Inhalt des 


Bildschirmes (25 Zeilen) in den Editor. 
Dabei werden nur Texte übertragen. 
Variablen und Attribute werden nicht über- 
tragen. 


- liest das Zeichen, auf dem der 
Cursor gerade steht. Dieses Zeichen kann 
dann vom FORMS-Hauptmenü mit [F8) an einer 
anderen Stelle ausgegeben oder mit mehr - 
fach am Bildschirm wiederholt werden. 


- liest das Attribut, auf dem der 
Cursor gerade steht, in der Informations- 
zeile 22 (zu sehen am Wort "ATTRIBUTE"). 
Mit kann dann dieses Attribut beliebig 
oft am Bildschirm wiederholt werden. 


- damit wird das 3zeilige Menü 
auf Zeile 22 bis 25 ein- oder ausgeblendet. 
Diese Einrichtung ist dann sinnvoll, wenn 
auch die letzten Zeilen des Bildschirmes 
zur Beschreibung der eigenen Maske benötigt 
werden. 


- beendet FORMS. 

Wurde das Sichern der Maske vergessen oder 

hat man aus Versehen auf die (Esc])-Taste ge- 
drückt, so erscheint die Meldung "exit without 
saving? Y/N". Soll die Maske nicht gesichert 
werden, so können wir "N" eingeben. 


Nach dem Verlassen von FORMS geht man auto- 
matisch in den Editor zurück. Eine gesicherte 
oder evtl. nicht gesicherte Maske bleibt 

so lange erhalten, bis eine andere Funktion aus 
dem Hauptmenü des Compilers aufgerufen wird. 
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2) 8 
[8] —_ 


7 
\N 


5 
> 
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Auswahlmöglichkeiten in FORMS 


Daten-Erstellung (F2=data) 


- Hilfsfunktion 


- schaltet zwischen Text- und Daten- 
mode um. 


- Einfügen einer Leerzeile vor der 
aktuellen Zeile. 


- Löschen der aktuellen Zeile. Jede 
gelöschte Zeile kann mit zurückgeholt 
werden. 


- Verdoppeln der aktuellen Zeile. 
Durch abwechselndes Drücken von und 
kann ein Block kopiert werden. 


SCHEITERTE - Wiedergabe der zuletzt ge- 
löschten Zeile. Durch mehrmaliges Betätigen 


dieser Taste können alle bisher gelöschten 
Zeilen wiedergegeben werden. 


Erstellen von Bildschirmmasken mit FORMS 


Auswahlmöglichkeiten in FORMS 


Daten-Erstellung (F2=data) 


- Wiedergabe des zuletzt mit 
"Backspace" gelöschten Zeichens. 


mer -— Wiedergabe des zuletzt mit "Del" 


gelöschten Zeichens. 


- Wiederholen des zuletzt eingege- 
benen Zeichens an der aktuellen Cursorposition. 
Die Wiederholung erfolgt immer in der Schreib- 
richtung, die zuletzt mit festgelegt 
worden ist (horizontal bzw. vertikal). 
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Auswahlmöglichkeiten in FORMS 


- halten Sie die [Alt)-Taste gedrückt 
und drücken Sie auf eine der nachfolgenden 
Tasten, um die danebenstehende Funktion zu 
erreichen: 


diese Tasten haben die 
gleichen Funktionen wie 
bei der Text-Erstellung 


zsenerate-COBOL 


l 


- hiermit kann das standard- 


mäßig festgelegte Währungszeichen ($) 
geändert werden. 

Eines der folgenden Zeichen kann festgelegt 
werden: 


"N ; np ng ; "dt 
"N", "on "Q", mm 


,’ ’ 
’ ’ 
"a" , "5 ; io ; " " ; 
’ ’ 
’ ’ 


"It, "3, "KK", "Mm", 
"y" j ni , ny ; 


... nyn ...m ng 
"on ng" "Er, "7 , 
"(nm t)t sowie alle Zeichen, deren Code 
größer als 126. 


ur IL 20 "EN, ... 


am " IA min nt \ n 
’ ’ ’ 


help - Hilfsfunktion 


- beendet die Auswahl des 
Wwährungszeichens. 
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Auswahlmöglichkeiten in FORMS 


Daten-Erstellung (F2=data) 


- hiermit kann das standard- 
mäßig festgelegte Dezimalzeichen (.) 
geändert werden. Es kann zwischen Punkt "." 
und Komma "," gewählt werden. 


- Hilfsfunktion 


- beendet die Auswahl des 
Dezimalzeichens. 


EI SBEIEBE Le ae -— Jiese Funktion 


wird dann notwendig, wenn Sie beabsichti- 
gen, ein Indexprogramm zu generieren. 
Hiermit kann das Schlüsselfeld für die 
index-sequentielle Datei festgelegt werden. 
Positionieren Sie daher den Cursor auf das 
letzte Feld, welches noch ein Teil des 
Schlüssels sein soll, und drücken erst dann 


auf [Alt)+[F1ß). 


Dieses Menü bietet die gleichen Funktionen wie 
das Ctr1l-Menü bei der Text-Erstellung. 


- beendet FORMS 
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Das Directory-Menü 


Directory-Menü 

- Hilfsfunktion 

- Einblenden des Directory-Menüs 
- Hilfsfunktion 
- Auflisten des Directory-Inhalts. Dabei 
werden nur Namen mit der Erweiterung (.FRM) 
aufgelistet. 
- wechselt das Directory 
(Fi) - Hilfsfunktion 


- listet den Inhalt des Directory 
wieder auf. 


(F3) - listet die vorhandenen 
Directories auf. 


- erlaubt das Wechseln des Bezugs- 
laufwerkes. 


1-36 


Erstellen von Bildschirmmasken mit FORMS 


Directory-Menü 


- bewegt den Cursor eine Zeile 
nach oben. 


- bewegt den Cursor eine 
Zeile nach unten. 


- wählt den hervorgehobenen 
(+ ]J|Directory-Namen und listet alle Namen 
der Sub-Directories auf. 


- beendet das Directory-Menü. 


g 
> 


- löscht die Datei, deren Name her- 
vorgehoben dargestellt ist. 


& 
vn 


- sortiert die aufgelisteten Namen 
nach Dateinamen. 


7 
a 


- sortiert die aufgelisteten Namen 
nach Erstellungsdatum der Dateien. 


- listet das Directory in der 
ursprünglichen Form auf (unsortiert). 


- schaltet zwischen aufsteigender 
und absteigender Sortierung um. 


- erlaubt das Wechseln des Bezugslauf- 
werkes. 


- listet die vorhandenen Directories auf. 
- erlaubt das Wechseln des Bezugslaufwerkes. 
- beendet das Directory-Menü. 
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Das Indexprogramm 


Allgemeines 


In Generate-COBOL-Menü bietet FORMS nicht nur die Möglichkeit, Daten- 
definitionen oder COBOL-Anweisungen zu generieren, sondern auch die Er- 
stellung eines vollständigen COBOL-Programms für die Erfassung und Pfle- 
ge von index-sequentiellen Dateien, basierend auf der dort erstellten Maske. 


D.h., die ın der Bildschirmmaske definierten Variablen bilden nun den Da- 
tensatz der index-sequentiellen Datei. 


Vorgehensweise bei der Erstellung eines Indexpro- 
geramms 


1. Erstellen der Bildschirmmaske: 


Hierbei ıst darauf zu achten, daß alle Felder des ISAM-Satzes als 
Variablen in der Maske definiert werden. Das Schlüsselfeld bzw. die 
Schlüsselfelder müssen die ersten Variablen, die in der Maske er- 
scheinen, sein. Vor der Generierung des Indexprogramms müssen 
die Schlüsselfelder markiert werden. Dazu bewegt man den Cursor 
auf das letzte Zeichen im letzten Feld, welches noch Bestandteil des 
Schlüssels sein soll, und markiert mit [Alt)+(F12) den Schlüssel. 
FORMS benötigt diesen Vorgang, um zu erkennen, welche Varia- 
blen nun den Schlüssel (RECORD KEY) bilden sollen. Wird dieser 
Vorgang vergessen, so fordert FORMS noch vor der Generierung 
die Markierung des Schlüssels mit der Meldung: 


please position cursor in or after last field of 
Index key then press Alt+F1® 
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2. Die Generierung: 


Die Generierung erfolgt vom Generate-COBOL-Menü mit (F4). Un- 
ter der Annahme, daß der Maskenname = PGM33 war, erzeugt 
FORMS das vollständige Programm mit dem folgenden Inhalt: 


COPY "PGM33.IX1". Dateidefinition 

COPY "PGM33.DDS". Maskenstrukturen 

COPY "S:INDEX.WST". Standardfeld- 
definitionen 

PROCEDURE DIVISION. 

COPY "S:INDEX.PRC". Standardverarbeitung 

COPY "PGM33.IX2". programmindividuelle 
Verarbeitung 


Das Programm enthält einige COPY-Anweisungen, die zum Teil auf System- 
elemente zugreifen. Siehe im Detail das Programm PGM33 in Kap. 12. 


Das Programm kann nun mit vom COBOL-Hauptmenü wie gewöhnlich 
übersetzt werden. 
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Die Leistung des Indexprogramms 


Während der Programmausführung wird zwischen Auto-Mode und Manual- 
Mode unterschieden. 


Auto-Mode 

Im Auto-Mode können bei der ersten Ausführung des Programms mehrere 
Datensätze in die index-sequentielle Datei hintereinander erfaßt werden. 
Nachdem die Erfassung beendet ist oder bei späterer Ausführung des Pro- 
gramms, kann die Datei durch mehrfache Betätigung der [4JJ-Taste se- 
quentiell gelesen werden. 


Manual-Mode 


Im Manual-Mode können alle E/A-Operationen, die auf einer index-sequen- 
tiellen Datei angewendet werden können, benutzt werden. 
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Tastenfunktionen im Indexprogramm 


Bewegt den Cursor 1 Zeichen vorwärts. 


Bewegt den Cursor 1 Zeichen rückwärts. 


Bewegt den Cursor 1 Zeile nach oben (nur wenn 
in der entsprechenden Spalte ein Datenfeld 
vorhanden ist). 


Löscht Zeichen nach links. 

Bewegt den Cursor zum nächsten Feld. 
Bewegt den Cursor zum dem Feld davor. 
Schaltet den Einfügemodus ein oder aus. 


Löscht das Zeichen, auf dem der Cursor gerade 
steht. 


Bewegt den Cursor zum Anfang des ersten Feldes 


Beim ersten Drücken wird der Cursor an das 
Ende des aktuellen Feldes bewegt. 

Beim zweiten Drücken wird der Cursor auf 
den Anfang des letzten Feldes bewegt. 

Das dritte Mal bewegt den Cursor an das Ende 
des letzten Feldes. 
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Auswahlmöglichkeiten im Indexprogramm 


Auswahlmöglichkeiten im Indexprogramm 

BE) - Hilfsfunktion 

- schaltet das Directory-Menü ein. 

- beendet die Programmausführung. 
Sad - eröffnet die angegebene Datei mit I-0. 
- Hilfsfunktion 

- schaltet zwischen Manual- und 


Automatic-Mode um. 
- Hilfsfunktion 


- positioniert die ISAM-Datei 
mit KEY = record-key. 


gl 
N 


- positioniert die ISAM-Datei 
mit KEY not > record-key. 


8 
> 


- positioniert die ISAM-Datei 
mit KEY > record-key. 


“7 
un 


- liest wahlfrei mit Hilfe 
des Record-Key-Feldes. 


- liest sequentiell ausge- 
hend von der aktuellen Dateiposition. 


- speichert den angezeigten Satz 
in der ISAM-Datei. 
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Auswahlmöglichkeiten im Indexprogramm 
- überschreibt den angezeigten 
Satz in der ISAM-Datei. 


- löscht den angezeigten Satz 
aus der ISAM-Datei. 


- kehrt zum Automatic-Mode 
zurück. 


- löscht alle Maskenvariablen 
auf Space bzw. Zero. 


(Esc]) |schließt die ISAM-Datei. 


- löscht alle Maskenvariablen 
auf Space bzw. Zero. 


(Esc) |schließt die ISAM-Datei. 


Der systeminterne Aufbau einer FORMS-Datei 
Beim Sichern der Arbeitsmaske speichert FORMS den Aufbau des Bild- 
schirms in einer LINE-SEQUENTIAL-organisierten Datei mit der Erweite- 
rung ".FRM". 
Dic Datei besteht aus: 

= einem Vorlaufsatz (header record), 

= einem Attributsatz, 


= mehreren Textsätzen und 


= mehreren Datensätzen. 
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Der Vorlaufsatz 


Der Vorlaufsatz enthält Werte ausschließlich binärer Felder mit einer Länge 
von 2 oder 4 Bytes. Einige dieser Felder sind für zukünftige Erweiterungen 
vorgesehen und sollen nur die angegebenen Werte enthalten. 


Verwendungszweck Inhalt 


Markierung 1 


Anzahl der Bildschirm-Zeilen 25 
Anzahl der Bildschirm-Spalten 80 


Anzahl der Masken-Zeilen 21 
Anzahl der Masken-Spalten 80 


Attribut-Markierung Ö=Keine Attribute vorhanden, 
1=Attribute vorhanden 


Standardattribut (Normal=?) 
Attribut-Beginn B8B81=Oben links 


Text-Markierung ß=Kein Text vorhanden, 
1=Text vorhanden 


Anzahl der Text-Sätze 
Text-Beginn B881=0Oben links 


Daten-Markierung ß=Keine Daten vorhanden, 
1=Daten vorhanden 

Anzahl der Daten-Sätze 

Daten-Beginn B801=Links oben). 
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Der Attribut-Satz 


Die Anzahl der Attribut-Sätze ist variabel. Ein Attribut-Satz ist 80 Byte lang 
und enthält bis zu 26mal die folgenden Parameter: 


Länge PIC 9(4) COMP 
Attribut PIC 9(2) COMP 


Das Ende der Attribut-Sätze wird mit dem Wert 0 im Längenfeld angezeigt. 


Die Text-Sätze 


Für jede Text-Zeile in der Bildschirmmaske wird ein 80stelliger Textsatz ge- 
speichert. 


Daten-Sätze 


Für jede Daten-Zeile in der Bildschirmmaske wird ein 80stelliger Datensatz 
gespeichert. 
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Begriffsdefinition 


Würden alle Texte am Bildschirm mit gleichen Merkmalen angezeigt, so er- 
führe der Benutzer wenig vom Geschehen am Bildschirm. Deshalb werden 
Texte mit unterschiedlichen Bedeutungen mit verschiedenen Darstellungs- 
arten am Bildschirm angezeigt. 


Die Darstellungsart eines Zeichens am Bildschirm wird hier Attribut genannt. 
Da diese Zeichen am Bildschirm angezeigt werden, sind diese unter dem 


Begriff Bildschirmattribute bekannt. 


Das Bildschirmattribut ist also die Erscheinungscharakteristik eines Zeichens 
am Bildschirm. 


Die Bildschirmattribute reichen —- je nach Hardwareausstattung - von 
Farben bis hin zum Blinken und Anzeigen mit Unterstreichung usw. 


Das Attributbyte 


Die 8-Bit-kombinationen des Attributbytes bestimmen die Erscheinungscha- 
rakteristik eines Zeichens am Bildschirm. 
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Das Attributbyte für den Monochrombildschirm 


(1) 
(2) 
3) 
(4) 


2-2 


2 26 25 2 23 22 >11 950 Bit 
) 1) W) ® ® ") ® ") 
oder \oder |oder [oder |loder |oder |oder |oder 
1 1 1 1 1 1 1 1 


(1) (2) (3) (4) 


Blinken (O=nicht blinkend, 1=blinkend) 
Hintergrunddarstellung (Papierfarbe) 
Lichtintensität (Q=normale, 1=hohe Intensität) 


Vordergrunddarstellung (Stiftfarbe) 


Bildschirmattribute 


Tabelle der Attribute für den Monochrombildschirm 


HINTERGRUND SCHWARZ 


NICHT BLINKEND BLINKEND 
VORDERGRUND 


rom some free es ref 


2 oO m zZ <xz „4 “- 2 tr gs zz nn -. > 


EG 
BE 
BE 


+ |ın — 1 © 2 

ea | m ea | m an) 

En. 

E 

2: sialzialsleislsisleisies 
[ee efeiefeiefelelelelslelete 


DI EIG 
salraje2]s2[r2 
31531631 73[83[3333 
DIE EIEIRIEIE 
65175]85195175135 
s156[es[7ejss1ss [Ass 
Gola EI 
(e[7afee DEE 
3139[69[79[e3 95179 
oalrafr DE 
3152| |72[e3 [92 pa | 
sc sc 7ejee[selaeIsc’e 
eo lPojeolop]ao 
(68 Peoe 98 ar BE 
FI8F |) 


m Io 
vIi«+ 
SSEIEAPSEGFSERTS alelalalets 


slslslstsleisie ejelslele 


EIG 
22152 
3113123 [33|* 
JE 
2 
2613614 
uEIE 
DE 
DEE 
INSE 
DEE 
eich) 
SEES 
GEGEE 


—— NICHT BLINKEND BLINKEND 


Bemerkung: 


NICHT UNTERSTRICHEN 
UNTERSTRUCHEN 


r- 
£&) 
„L 
oO 
un | 
[ei 
ya 
42) 
oc 
E 
> 


UNTERSTRICHEN 


: 
: 
& 
E 


Unsichtbar 


00, 
10, 


08, 80, 88 


Reverse Video 


F8 


78, F®, 
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Das Attributbyte für den Farbbildschirm 


(1) 
(2) 
(3) 
(4) 
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Bit 


(1) (3) 


Blinken (O=nicht blinkend, 1=blinkend) 
Hintergrundfarbe (Papierfarbe) 
Lichtintensität (O=normale, 1=hohe Intensität) 


Vordergrundfarbe (Stiftfarbe) 


Bildschirmattribute 


Tabelle der Attribute für den Farbbildschirm 


BLINKEND 


NICHT BLINKEND 


= 
[e>] 
S 
En. 
& 
r+ 
je} 
oc 
& 
[0 = 
£=) 
o 
= 
zZ 


VORDERGRUNDFARBENJ| 2 3456 7812345678 


el» ebelsaba se[felaebolzel abe 


ENESEIFIESEIEIEI ESEIESEBESEIENES 


slelolsisisisiofstelstelstefe 
nm © 
as a lalzınlels EIESEIEIEIEN 


ZElE 
G2D21E2|F 
JE 
an 
JE 
alone? 
TEEN 
c31D9|E9[F 
CR DAIEAF 
s1e[pa El? 
s|oe]peEc[F 
Ze 
GE 


rn Io 
sielsislslslslelsisieisieisl 
[E28 18 [E IE [8 IE [EI [8 [E [81 
&laja ala ielelsieleelalele 

n [© 

w|i+ 
EXESESESESEIEIESESESENEIE 


slelstelsisiele elelsjeisie 


6 Violett 

7” Braun 
Hellblau 
Hellkobaltblau 
Hellviolett 


2-5 


Bildschirmattribute 


Wie kann man Attribute aktivieren? 


Grundsätzlich gibt es 3 verschiedene Methoden, Attribute zu setzen: 


= mit dem Assembler-Unterprogramm X"B7", welches direkt auf 
den Bildschirmpuffer zugreift, 


= Über sog. Benutzerattribute, die mit dem Assembler-Unterpro- 
gramm X"A7" festgelegt werden können oder 


= mit der Unterstützung des erweiterten Bildschirmtreibers 
ANSILSYS auf Systemebene mit dem Unterprogramm X"A7". 


Diese Methoden haben unterschiedliche Auswirkungen beim Ablauf einer 


ACCEPT- oder DISPLAY-Anweisung, wobei von allen 3 Methoden das Un- 
terprogramm X"B7" empfohlen wird. 
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Das Assembler-Unterprogramm X"B7": 


Hier können die Attribute individuell für jede Bildschirmstelle festgelegt 
werden. Mit dem Unterprogramm X"B7" und der Funktionsnummer 3 wer- 
den dann die festgelegten Attribute am Bildschirm geschrieben. Bei der 
Ausführung einer ACCEPT- oder DISPLAY-Anweisung ist die Erschei- 
nungscharakteristik der Zeichen vom Attribut einer Bildschirmposition ab- 
hängig, an die das Zeichen ein- oder ausgegeben werden soll. 


Beispiel: 


Zeile 3 bis 5 des Bildschirms weiß auf rot, Zeile 20 bis 23 blau auf weiß, alle 
anderen sollen unverändert bleiben. 


1 
2 
Position 161 — 3 
(=2x80+1) 4 
5 
Position 1521 — 20 
(=19x80+1) 21 
22 
23 
24 
25 


Bildschirm 
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01 ATTRIBUTE. 


05 FILLER PIC X(240) VALUE X"47". 
05 FILLER PIC X(320) VALUE X"71". 
ö1 SCHREIBEN-ATTR PIC 9(2) COMP VALUE 3. 


01 DB7-PARAMETER. 


03 LAENGE PIC 9(4) COMP. 
03 BILDSCHIRM-POS PIC 9(4) COMP. 
03 PUFFER-POS PIC 9(4) COMP. 


MOVE 2480 TO LAENGE. 

MOVE 161 TO BILDSCHIRM-POS. 

MOVE 1 TO PUFFER-POS. 

CALL X"B7" USING SCHREIBEN-ATTR B7-PARAMETER 
ATTRIBUTE. 


MOVE 3280 TO LAENGE. 

MOVE 1521 TO BILDSCHIRM-POS. 

MOVE 241 TO PUFFER-POS. 

CALL X"B7" USING SCHREIBEN-ATTR B7-PARAMETER 
ATTRIBUTE. 


Für mehr Detailinformation siehe Kap.4. 


Die Benutzerattribute: 


Die Art und Weise, wie sich das Benutzerattribut auf nachfolgender Textaus- 
gabe auswirkt, ist nicht zu vergleichen mit der des Unterprogramms X"B7". 
Das Benutzerattribut bewirkt, daß jede Textausgabe gemäß dem zuletzt ge- 
setzten und eingeschalteten Attribut erfolgen soll. Dazu wird das Unterpro- 
gramm X"A7" benutzt, mit Funktion 7 kann das Benutzerattribut gesetzt und 
mit Funktion 16 und Parameter 0 eingeschaltet werden. Im Gegensatz zum 
Unterprogramm X"B7" hat diese Methode keinen Einfluß auf die am Bild- 


Bildschirmattribute 


schirm bereits vorhandenen Texte, vielmehr gilt sie als Vorbereitung für 
nachfolgend auszugebende Texte. 


Diese Methode hat den einen Vorteil, daß man nur ein einziges Attributbyte 
zu definieren braucht, welches dann für den ganzen Bildschirm gilt (effiziente 
Ausnutzung des Speichers). 


Beispiel: 
91 
91 


01 


FUNKTION PIC 9(2) COMP. 
PARAMETER-7 PICX. 
PARAMETER-16 PIC 9(2) COMP. 


Setzen des Benutzerattributs auf 
hellblau-blinkend 


MOVE 7 TO FUNKTION. 
MOVE X"89" TO PARAMETER-7. 
CALL X"A7" USING FUNKTION PARAMETER-7. 


Einschalten des Benutzerattributs 


MOVE 16 TO FUNKTION. 

MOVE ® TO PARAMETER-16. 

CALL X"A7" USING FUNKTION PARAMETER-16. 
DISPLAY "Texte mit Benutzerattribut". 


Ausschalten des Benutzerattributs 
MOVE 16 TO FUNKTION. 
MOVE 1 TO PARAMETER-16. 


CALL X"A7" USING FUNKTION PARAMETER-16. 
DISPLAY "Texte mit Standardattribut". 
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Der erweiterte Bildschirmtreiber ANSI.SYS: 


Vorausgesetzt, die CONFIG.SYS-Datei enthält beim Systemstart die Anwei- 
sung: 


DEVICE = ANSI.SYS 


dann wird der erweiterte Bildschirmtreiber ANSLSYS geladen. Dies hat 
zunächst keine Auswirkung auf das COBOL-Programm. Um die Funktionen 
des Bildschirmtreibers ANSI.SYS ausnutzen zu können, muß dieser erst mit 
der Funktion 18 und dem Parameter 1 aktiviert werden. 


Auch diese Methode, Attribute zu aktivieren, hat ihre Besonderheiten. Die 
Attribute haben zwar ihre Auswirkungen nur auf nachfolgend auszugebende 
Texte, jedoch kann man hier einzelne Eigenschaften des Attributs ändern, 
ohne Kenntnis vom aktuellen Attribut zu nehmen. D.h., man kann z.B. das 
Blinken im Attribut aktivieren, ohne die Hintergrund- oder Vordergrundfar- 
ben zu verändern. Des weiteren bleiben auf diese Art aktivierte Attribute 
auch auf DOS-Ebene erhalten! 


Das gewünschte Attribut wird nach Aktivierung des Bildschirmtreibers 
ANSLSYS mit Escape-Steuersequenzen gesteuert. 


81 FUNKTION-18 PIC 9(2) COMP VALUE 18. 
81 PARAMETER-18 PIC 9(2) COMP VALUE 1. 
81 ESCAPE-SEQUENZ PIC X(8) VALUE X”"1B5B33353B34336D”. 


CALL X”A7” USING FUNKTION-18 PARAMETER-18. 


DISPLAY ESCAPE-SEQUENZ. 
DISPLAY "TEXT VIOLETT AUF GELB”. 


Siehe auch das Programmbeispiel: PGM15. 
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Die Escape-Steuersequenzen von ANSI.SYS 


Jede Esc-Sequenz wird mit der DISPLAY-Anweisung gesteuert und hat eines 
der folgenden Formate: 


ESC[?m 
oder 
ESC[?;?m 
wobei 
ESC = 1B hex 
[ = SB hex 
? = ein Hexwert aus der folgenden Tabelle 
; = 3B hex 
m = 6D hex 
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Bildschirmattribute 


Ausschalten aller Attribute 

Hohe Intensität 

Unterstreichung (nur Monochrombildschirm) 
Blinken 

Reverse Video (schwarz auf weiß) 
Unsichtbar 


Schwarzer Vordergrund 
Roter Vordergrund 
Grüner Vordergrund 
Gelber Vordergrund 
Blauer Vordergrund 
Violetter Vordergrund 
Kobaltblauer Vordergrund 
Weißer Vordergrund 


Schwarzer Hintergrund 
Roter Hintergrund 
Grüner Hintergrund 
Gelber Hintergrund 
Blauer Hintergrund 
Violetter Hintergrund 
Kobaltblauer Hintergrund 
Weißer Hintergrund 


Escape-Sequenzen von ANSI.SYS 
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3. Programmieren der Funk- 
tionstasten 


Allgemeines 


Die Art und Weise, wie man die Eingabe am Bildschirm machen kann, wie 
Menüs zur Steuerung der verschiedenen Funktionen des Programms oder wie 
eine bestimmte Funktion aus einem Menü gewählt werden kann, beeinflußt 
sehr die Benutzerfreundlichkeit des Programms. 


Zur Erhöhung der Arbeitseffizienz und der Benutzerfreundlichkeit der Soft- 
ware sollte man hier soweit wie möglich Funktionstasten einsetzen. 


Während der Eingabe können also nur die untengenannten Funktionstasten 
betätigt werden. Jede andere Taste wird mit einem Piepton zurückgewiesen. 


Es können jedoch beliebige Tasten betätigt und entsprechend im Programm 
erkannt werden, wenn sie zugänglich (programmiert) gemacht werden. 


Die ACCEPT-Anweisung erkennt normalerweise nur die folgenden Tasten 
mit deren Wirkungen: 
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Programmieren der Funktionstasten 


beenden der Eingabe 
oder 


positionieren des Cursors auf das 
erste Feld in der Maske 


(End) positionieren des Cursors auf das Ende des 
aktuellen Feldes, dann auf das letzte Feld 
in der Maske 


positionieren des Cursors auf das Feld 
davor 


positionieren des Cursors auf das Feld 
danach 


positionieren des Cursors eine Spalte 
nach links 


positionieren des Cursors eine Spalte 
nach rechts 


positionieren des Cursors eine Zeile 
nach oben (gleiche Spalte) 


positionieren des Cursors eine Zeile 
nach unten (gleiche Spalte) 


Verschiedene Methoden können verwendet werden, um eine Taste zu pro- 
grammieren. 


Programmieren der Funktionstasten 
Das Unterprogramm X"B0" 


Das Unterprogramm X"B0" kann benutzt werden, um eine beliebige Taste zu 
programmieren, d.h. während der Eingabe im ACCEPT-Feld kann diese 
Taste betätigt werden, woraufhin die ACCEPT-Anweisung beendet und die 
Steuerung des Programms an der nächsten Anweisung weiter geht. Hier kann 
dann der Programmierer die betätigte Taste über die festgelegte Tabelle 
auswerten und entsprechend im Programm weiter verzweigen. 


Beachten Sie bitte, daß jede programmierte Taste nicht mehr das normaler- 
weise für die Taste festgelegte Zeichen am Bildschirm erzeugen kann, viel- 


mehr wirkt sie wie die (Return)-Taste, indem die Eingabe beendet wird. 


Das Unterprogramm X"B0" wird ausführlich in Kapitel 4 behandelt. 
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Die Benutzer-Funktionstasten 


Als Alternative zum Unterprogramm X"BO" können die von MICRO FOCUS 
festgelegten sog. Benutzer-Funktionstasten mit relativ wenig Programmier- 
aufwand benutzt werden. 


Bei dieser Möglichkeit kann allerdings nur eine fortlaufende Anzahl von 
Tasten nach der folgenden Tabelle programmiert werden. 


Die Tabelle der Benutzer-Funktionstasten bietet maximal 91 Tasten zum Ak- 
tivieren. 


Funktionsnummer 


(ESC)ape 


Fi) bis (Fie) 
+ (Fi) bis (Fi) 
+ (Fi) bis (Fi) 
+ 


(Fi) bis (Fi) 
(1) vis B) 


nicht definiert 


Alt) + A bis (2) 


Tabelle der Benutzer-Funktionstasten 


Wie die Benutzung der Funktionstasten im einzelnen geht, finden Sie in Ka- 
pitel 4 (Unterprogramm X"AF"). 


3-4 


Programmieren der Funktionstasten 


ADIS-Modul-Funktionstasten 


Das Wort ADIS stammt aus den Anweisungen ACCEPT und DISPLAY, der 
ADIS-Modul ist also der Compilerbestandteil, der für die Behandlung der 
ACCEPT- und DISPLAY-Anweisung zuständig ist. 


Einige Tasten und Tastenkombinationen sind standardmäßig im ADIS-Mo- 
dul so festgelegt, daß die Betätigung einer solchen Taste eine bestimmte 
Funktion bewirkt. 


Eine solche Taste kann mit dem Unterprogramm X"AF" so aktiviert werden, 
daß sie auch die Eingabe mit ACCEPT beenden kann. In diesem Fall wird 
die mit der Taste verbundene Funktion nicht mehr ausgeführt. 


Da man hier keinen Einfluß auf beliebige Tasten hat, kann diese Möglichkeit 
nicht unbedingt als Alternative zum Unterprogramm X"B0" betrachtet wer- 
den. Vielmehr können die hier festgelegten Standardtasten in den Anwen- 
dungen verwendet werden. 
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Programmieren der Funktionstasten 


Tabelle der ADIS-Funktionstasten 


Die ADIS-Funktionstasten sind in der folgenden Tabelle angegeben: 


Funktions- 
nummer Wirkung Taste 


beendet ACCEPT nicht definiert 
beendet das Programm (Ctrıjk) 


bewegt den Cursor zum Anfang der nächsten (OO) auf Funktion 
Zeile BB zugewiesen 


bewegt den Cursor ein Zeichen nach links 

bewegt den Cursor ein Zeichen nach rechts 

bewegt den Cursor eine Zeile nach oben 

bewegt den Cursor eine Zeile nach unten 

bewegt den Cursor zum Anfang der Maske 

Tabulator vorwärts f) auf Funktion 
Tabulator rückwärts (0 | Jauf Funktion 
bewegt den Cursor zum Ende der Maske 

bewegt den Cursor zum nächsten Feld nicht definiert 


bewegt den Cursor zu dem Feld davor nicht definiert 
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Funktions- 
nunner Wirkung Taste 


wandelt das Zeichen, auf dem der Cursor 
gerade steht, von Groß- in Kleinbuchstaben 
und umgekehrt. 


löscht ein Zeichen rückwärts (Ctrij[H) 


schreibt alle Zeichen wieder, die mit Ctrl+H 
gelöscht worden sind 


fügt ein Leerzeichen an der aktuellen Cursor- [Ctr1][o) 
position ein 


löscht ein Zeichen vorwärts 


schreibt alle Zeichen wieder, die mit Del (ctr1]jo) 
gelöscht worden sind 


löscht von der Cursorposition bis zum Ende (ctr1][o) 
des Feldes 


löscht das gesante Feld (ctrı]x) 


Funktions- 
nummer Wirkung Taste 


löscht von der Cursorposition bis zum Ende 
der Maske 


löscht die gesamte Maske unabhängig von der 
Gursorposition 


schaltet den Einfügemodus ein Uns) 


schaltet den Ersatzmodus ein nicht definiert 
setzt das Feld auf seinen ursprünglichen Wert (Ctrilla) 


bewegt den Cursor zum Anfang der Zeile, nicht definiert 
des Feldes oder der Maske 


reserviert 
auf Funktion 
08 zugewiesen 


reserviert 
auf Funktion 
09 zugewiesen 
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Das Unterprogramm X"83" 

Dieses Unterprogramm bietet eine ganz andere Möglichkeit, den Druck einer 
beliebigen Taste zu erkennen. Das Unterprogramm kann jedoch nicht im Zu- 
sammenhang mit einer ACCEPT-Anweisung benutzt werden, so daß der 
Druck einer Taste die ACCEPT-Anweisung beenden kann. 

Beispiel: 


Das Beispiel zeigt eine Programmschleife, die so lange ausgeführt wird, bis 
die Escape-Taste (hex 1B) gedrückt wird. 


1 TASTATUR-STATUS PIC 99 COMP. 
01 ZEICHEN PICX. 


MOVE SPACE TO ZEICHEN. 
PERFORM LOOP UNTIL ZEICHEN = X"1B". 


LOOP. 
* Feststellen, ob eine Taste gedrückt wurde 
CALL X"D9" USING TASTATUR-STATUS. 


IF TASTATUR-STATUS NOT = ® 
CALL X"83" USING ZEICHEN. 
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4. Unterprogramm für spe- 
zielle Funktionen 


MICRO FOCUS stellt in den COBOL-Compilern PERSONAL COBOL, 
LEVEL II COBOL und PROFESSIONAL COBOL einige Unterprogramme 
zur Verfügung. 


Diese Unterprogramme sind in Assembler 8086 geschrieben und können im 
eigenen COBOL-Programm durch die CALL-Anweisung aufgerufen werden. 


Mit Hilfe dieser Routinen können Funktionen, die normalerweise nicht ım 
COBOL-Standard enthalten sind, sowie IBM-PC-spezifische Funktionen aus- 
geführt werden. 

Da einige dieser Unterprogramme DOS-Funktionen aufrufen können, wird 
dem Benutzer insbesondere der Einstieg in die Programmierung in COBOL 
auf Systemebene ermöglicht. 

Der allgemeine Aufruf eines solchen Unterprogramms wird wie folgt be- 
schrieben: 


CALL Unterprogramm-Nummer USING Parameter-Liste 


Beispiel: 
CALL X"83" USING ZEICHEN. 


Die Unterprogramm-Nummer kann in einem Istelligen Feld übertragen wer- 
den, worauf sich dann die CALL-Anweisung beziehen kann. 
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Unterprogramm für spezielle Funktionen 


Beispiel: 


1 ZEICHEN-AUSGABE PIC X"835". 
CALL ZEICHEN-AUSGABE USING ZEICHEN. 


Die Unterprogramm-Nummer ist eine Zahl, die hexadezimal in einem Byte 
enthalten ist. Die Parameter-Liste ist vom aufgerufenen Unterprogramm ab- 
hängig. 


Diese Parameter dürfen jedoch nicht mit Parametern, die man normalerweise 
für den Aufruf eines externen COBOL-Unterprogramms benötigt, verwech- 
selt werden. Sie dürfen daher nicht in der LINKAGE SECTION definiert 
werden. 


Liste der Unterprogramme 


Die COBOL-Systeme von MICRO FOCUS verfügen über eine unterschied- 
liche Anzahl von Unterprogrammen, wobei einige Unterprogramme - je 
nach übergebenen Parametern — verschiedene Unterfunktionen ausführen 
können. 


Die folgende Liste gibt Ihnen einen Überblick über die verfügbaren Funktio- 
nen. Die Ziffern haben dabei die folgenden Bedeutungen: 
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Unterprogramm für spezielle Funktionen 


1 ---> verfügbar in PERSONAL COBOL 

2 ---> verfügbar in LEVEL II COBOL 

3 ---> verfügbar in PROFESSIONAL COBOL 

* ---) das Unterprogramm verfügt über Unterfunktionen 


xrg2” 
x”’9az" 
xr’g5” 
x”g9g4” 
"86" 
Kos” 
xr’g7” 
x”’I96” 
x”’gg” 
x”g97” 
X"8c” 
X”8p” 
x”91 „ 
"AT" 


X”"AF” 
x’Bp” 
X”B7” 
X”DY" 


X"E5” 
X”’E6” 


X”’F4 ” 
X”"F5 ” 


Verwendungszweck des Unterprogramms 


Ausgabe eines Zeichens auf dem Bildschirm 
Einlesen eines Zeichens von der Tastatur 
Lesen eines Bytes über Segment und Offset 
Lesen eines Wortes über Segment und Offset 
Schreiben eines Bytes über Segment und Offset 
Schreiben eines Wortes über Segment und Offset 
Enpfangen eines Bytes vom Hardware-Port 
Empfangen eines Wortes vom Hardware-Port 
Senden eines Bytes nach dem Hardware-Port 
Senden eines Wortes nach dem Hardware-Port 
Splitten von Dateinamen 

Zusammenketten von Dateinamen 

Kombinierte Programnaufrufe 
Bildschirm-Steuerung/Benutzerattribute/ 
ANSI.SYS 

Unterdrücken des Erscheinens von 
Passworten/ Voranzeige der ACCEPT-Felder/ 
Benutzer-Funktionstasten 

Programmieren der Funktionstasten 
Ein/Ausgabe von Attributen und Texten am 
Bildschirn 

Testen, ob ein Zeichen von der Tastatur 
eingegeben wurde 

Erzeugen eines Pieptons 

Positionieren des Cursors auf eine 
bestimmte Bildschirmposition 

Packen eines Bytes 

Entpacken eines Bytes 
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Unterprogramm für spezielle Funktionen 


Das Standard-Format 


Die meisten Unterprogramme benutzen zwei bestimmte Parameter. Diese 
Parameter sollen hier allgemein beschrieben werden. 

01 Ergebnis PIC 9(2) COMP. 
Das Ergebnisfeld enthält nach dem Aufruf des Unterprogramms eine Null, 
wenn das Unterprogramm erfolgreich ausgeführt worden ist. Das Ergebnis- 
feld enthält einen Wert ungleich Null, wenn ein Fehler aufgetreten ist. 

01 Funktion PIC 9(2) COMP. 
Dieses Feld enthält eine Zahl, welche die gewünschte Unterfunktion eines 


Unterprogramms spezifiziert (falls das Unterprogramm über mehrere Un- 
terfunktionen verfügt). 
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Unterprogramm für spezielle Funktionen 
Ausgabe eines Zeichens auf dem Bildschirm 


Format: 


CALL X"82" USING Zeichen. 


Beschreibung der USING-Parameter: 
Zeichen: 
ist ein 1stelliges alphanumerisches Feld, welches das auszugebende Zeichen 
enthält. 
01 ZEICHEN PICX. 


Das Zeichen wird an der aktuellen Cursorposition auf dem Bildschirm ausge- 
geben und der Cursor wird um eine Position nach rechts positioniert. 


Befindet sich der Cursor auf Spalte 80 einer Zeile, so wird er auf die nächste 
Zeile positioniert. Dies gilt jedoch nicht, wenn sich der Cursor in Spalte 80 
der Zeile 25 befindet. 
Zu beachten: 
Wenn der ANSI.SYS-Bildschirmtreiber aktiviert ist (siehe X"A7"), so wird 
das Zeichen mit der DOS-Funktion 2 auf den Bildschirm geschrieben. 
Beispiel: 

CALL X"82" USING ZEICHEN. 


Siehe Programmbeispiel PGM20 
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Unterprogramm für spezielle Funktionen 


Einlesen eines Zeichens von der Tastatur 


Format: 


CALL X"853" USING Zeichen. 


Beschreibung der USING-Parameter: 
Zeichen: 
ist ein 1stelliges alphanumerisches Feld, in dem das von der Tastatur eingele- 
sene Zeichen zur Verfügung gestellt wird. 
Beispiel: 
01 ZEICHEN PICX. 


CALL X"83" USING ZEICHEN. 
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Unterprogramm für spezielle Funktionen 


Zu beachten: 


Beim Aufruf dieses Unterprogrammes wird auch die Tabelle der Funk- 
tıionstasten überprüft und das Ergebnis-Byte entsprechend aktualısiert 
(siehe X"B0"). 


Enthält das Feld ZEICHEN den Code der [RETURN)-Taste (hex OD), so 
wurde die gedrückte Taste von der Tabelle der Funktionstasten erkannt. 
Um festzustellen, welche Taste tatsächlich gedrückt wurde, muß das Er- 
gebnis-Byte des Funktionstasten-Unterprogramms überprüft werden. 


Erzeugt die gedrückte Taste einen 2-Byte-Code (wie z.B. die Funk- 
tionstasten (F1)) und war diese Taste nicht in der Tabelle der Funk- 
tionstasten enthalten, so werden beide Bytes der Taste an das Unter- 
programm übergeben. Beim ersten Aufruf wird das erste Byte übergeben 
(hex 00) und beim nächsten das zweite Byte (der Scan-Code). 


Die Tastenkombination kann dieses Unterprogramm nicht 
unterbrechen. Das Unterprogramm kehrt erst in das aufrufende Pro- 
gramm zurück, wenn eine Taste bzw. Tastenkombination (außer 
(Ctri]|Break)) gedrückt wurde. Daher kann auch der Code der Tastenkom- 
bination ([Ctri][Break)) nicht mit diesem Unterprogramm eingelesen wer- 
den. 


Siehe Programmbeispiel PGM20, PGM29 
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Lesen eines Bytes über Segment und Offset 


Format: 


CALL X"85" USING Segment, Offset, Byte 


Beschreibung der USING-Parameter: 

Segment: 

ist ein Sstelliges numerisches Feld, in dem die Nummer eines Segments steht. 
01 SEGMENTNR PIC 9(5). 

Offset: 


ist ein Sstelliges numerisches Feld, welches die Position ausgehend von 0 in- 
nerhalb des Segments enthält. 


01 OFFSET-POS PIC 9(5). 


Wert: 


ist ein 1stelliges alphanumerisches Feld, in dem der vom Unterprogramm an 
der angegebenen Adresse gefundene Wert übertragen wird. 


01 BYTE PIC X. 
Beispiel: 


MOVE 64 TO SEGMENTNR. 
MOVE 19 TO OFFSET-POS 


CALL X"85" USING SEGMENTNR, OFFSET-POS, BYTE. 


Siche Programmbeispiel PGM34 
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Unterprogramm für spezielle Funktionen 


Lesen eines Wortes über Segment und Offset 


Format: 


CALL X"94" USING Segment, Offset, Wort 


Beschreibung der USING-Parameter: 

Segment: 

ist ein Sstelliges numerisches Feld, in dem die Nummer eines Segments steht. 
01 SEGMENTNR PIC 9(5). 

Offset: 


ist ein Sstelliges numerisches Feld, welches die Position ausgehend von 0 in- 
nerhalb des Segments enthält. 


01 OFFSET-POS PIC 9(5). 
Wort: 


ist ein 2stelliges alphanumerisches Feld, in dem der vom Unterprogramm an 
der angegebenen Adresse gefundene Wert übertragen wird. 


01 WORT PIC X(2). 
Beispiel: Lesen aus dem "DOS-Workpage" 


MOVE 64 TO SEGMENTNR. 
MOVE 19 TO OFFSET-POS 


CALL X"94" USING SEGMENTNR, OFFSET-POS, WORT. 


Siche Programmbeispiel PGM34 
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Schreiben eines Bytes über Segment und Offset 


Format: 


CALL X"86'" USING Segment, Offset, Byte 


Beschreibung der USING-Parameter: 

Segment: 

ist ein Sstelliges numerisches Feld, in dem die Nummer eines Segments steht. 
01 SEGMENTNR PIC 9(5). 


Offset: 


ist ein Sstelliges numerisches Feld, welches die Position ausgehend von 0 in- 
nerhalb des Segments enthält. 


01 OFFSET-POS PIC 9(5). 


Wert: 


ist ein 1stelliges alphanumerisches Feld, dessen Inhalt vom Unterprogramm 
an der angegebenen Adresse geschrieben wird. 


01 BYTE PIC X. 
Beispiel: 

MOVE 19008 TO SEGMENTNR. 

MOVE 64 TO OFFSET-POS 

MOVE X"0A" TO BYTE. 


CALL X"86'" USING SEGMENTNR, OFFSET-POS, BYTE. 


Siehe Programmbeispiel PGM34 
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Schreiben eines Wortes über Segment und Offset 


Format: 


CALL X"95" USING Segment, Offset, Wort 


Beschreibung der USING-Parameter: 


Segment: 


ist ein Sstelliges numerisches Feld, in dem die Nummer eines Segments steht. 
01 SEGMENTNR PIC 9(5). 


Offset: 


ist ein Sstelliges numerisches Feld, welches die Position ausgehend von 0 in- 
nerhalb des Segments enthält. 


01 OFFSET-POS PIC 9(5). 


Wert: 


ist ein 2stelliges alphanumerisches Feld, dessen Inhalt vom Unterprogramm 
an der angegebenen Adresse geschrieben wird. 


01 WORT PIC X(2). 
Beispiel: 

MOVE 88 TO SEGMENTNR. 

MOVE 38 TO OFFSET-POS 

MOVE X"29C0" TO WORT. 


CALL X'"95'" USING SEGMENTNR, OFFSET-POS, WORT. 


Siehe Programmbeispiel PGM34 
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Empfangen eines Bytes vom Hardware-Port 


Format: 


CALL X'"87" USING Port, Wert 


Beschreibung der USING-Parameter: 
Port: 


ist ein Sstelliges numerisches Feld, das die Adresse vom Port enthält, von 
dem eingelesen werden soll. 


dö1 PORT PIC 9(5). 


Wert: 


ist ein 1stelliges alphanumerisches Feld, in dem das vom Unterprogramm 
eingelesene Zeichen übergeben wird. 


01 WERT PICXK. 


Beispiel: 
MOVE 957 TO PORT. 


CALL X"87" USING PORT, WERT. 


Siehe Programmbeispiel PGM20 
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Unterprogramm für spezielle Funktionen 
Empfangen eines Wortes vom Hardware-Port 


Format: 


CALL X"96" USING Port, Wort 


Beschreibung der USING-Parameter: 
Port: 


ist ein Sstelliges numerisches Feld, das die Adresse vom Port enthält, von 
dem eingelesen werden soll. 


01 PORT PIC 9(5). 
Wert: 


ist ein 2stelliges alphanumerisches Feld, in dem die vom Unterprogramm 
eingelesenen Zeichen übergeben werden. 


01 WORT PIC X(2). 


Beispiel: 
MOVE 957 TO PORT. 


CALL X"96" USING PORT, WORT. 


Siehe Programmbeispiel PGM20 
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Senden eines Bytes nach dem Hardware-Port 


Format: 


CALL X"88" USING Port, Wert 


Beschreibung der USING-Parameter: 
Port: 


ist ein Sstelliges numerisches Feld, das die Adresse vom Port enthält, zu dem 
das Zeichen gesendet werden soll. 


01 PORT PIC 9(5). 
Wert: 
ist ein 1stelliges alphanumerisches Feld, in dem das zu sendende Zeichen 
vorhanden ist. 


di WERT PICX. 


Beispiel: 


MOVE 957 TO PORT. 
MOVE "A" TO WERT. 
CALL X"88" USING PORT, WERT. 


Siehe Programmbeispiel PGM20 
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Unterprogramm für spezielle Funktionen 


Senden eines Wortes nach dem Hardware-Port 


Format: 


CALL X"97" USING Port, Wert 


Beschreibung der USING-Parameter: 
Port: 


ist ein Sstelliges numerisches Feld, das die Adresse vom Port enthält, zu dem 
das Zeichen gesendet werden soll. 


01 PORT PIC 9(5). 


Wert: 


ist ein 2stelliges alphanumerisches Feld, in dem die zu sendenden Zeichen 
vorhanden sind. 


01 WORT PIC X(2). 
Beispiel: 

MOVE 957 TO PORT. 

MOVE "AB" TO WORT. 


CALL X"97" USING PORT, WORT. 


Siehe Programmbeispiel PGM20 
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Splitten von Dateinamen 


Format: 


CALL X"8C" USING Dateispezifikation, 


Laufwerk, Dateiname, Erweiterung 


Beschreibung der USING-Parameter: 
Dateispezifikation: 


ist ein alphanumerisches Feld mit einer variablen Länge von mindestens 20 
Bytes, dessen Inhalt (Dateispezifikation) gesplittet werden soll. 


01 DATEISPEZIFIKATION PIC X(29). 


Laufwerk: 


ist ein alphanumerisches Feld mit einer variablen Länge von mindestens 6 
Bytes, in dem die getrennte Laufwerksbezeichung übertragen wird. 


01 LAUFWERK PIC X(6). 
Dateiname; 


ist ein alphanumerisches Feld mit einer variablen Länge von mindestens 10 
Bytes, in dem der getrennte Dateiname übertragen wird. 


01 DATEINAME PIC X(190). 
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Erweiterung: 


ist ein alphanumerisches Feld mit einer varıablen Länge von mindestens 5 
Bytes, in dem die getrennte Dateierweiterung (Extension) übertragen wird. 


01 DATEIERWEITERUNG PIC X(5). 
Beispiel: 
MOVE "C:KUNDEN.ISM" TO DATEISPEZIFIKATION. 
CALL X"8C" USING DATEISPEZIFIKATION, 
LAUFWERK, 
DATEINAME, 
DATEIERWEITERUNG. 


Siehe Programmbeispiel PGM28 


Zusammenketten von Dateinamen 


Format: 


CALL X"8D" USING Dateispezifikation, 


Laufwerk, Dateiname, Erweiterung 


Beschreibung der USING-Parameter: 
Dateispezifikation: 


ist ein alphanumerisches Feld mit einer variablen Länge von mindestens 20 
Bytes, in dem die zusammengekettete Dateispezifikation übertragen wird. 


801 DATEISPEZIFIKATION PIC X(22). 
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Lau fwerk: 


ist ein alphanumerisches Feld mit einer variablen Länge von mindestens 6 
Bytes, dessen Inhalt eine gültige Laufwerksbezeichnung ist. 


21 LAUFWERK PIC X(6). 
Dateiname; 


ist ein alphanumerisches Feld mit einer variablen Länge von mindestens 10 
Bytes, dessen Inhalt ein gültiger Dateiname nach DOS-Konventionen ist. 


01 DATEINAME PIC X(10). 
Erweiterung: 


ist ein alphanumerisches Feld mit einer variablen Länge von mindestens 5 
Bytes, dessen Inhalt eine gültige Dateierweiterung ist. 


di DATEIERWEITERUNG PIC X(5). 


Beispiel: 
MOVE "C:" TO LAUFWERK. 
MOVE "KUNDEN " TO DATEINAME. 
MOVE "ISM" TO DATEIERWEITERUNG. 


CALL X"8D" USING DATEISPEZIFIKATION, 
LAUFWERK, 
DATEINAME, 
DATEIERWEITERUNG. 


Siche Programmbeispiel PGM28 
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Unterprogramm für spezielle Funktionen 
Kombinierte Programmaufrufe 


Dieses Unterprogramm kann für die Ausführung unterschiedlicher Funktio- 
nen verwendet werden. Die gewünschte Funktion wird mit Hilfe einer Funk- 
tionsnummer erreicht. 


Format: 


CALL X"91" USING Ergebnis, Funktion, Parameter 


Beschreibung der USING-Parameter: 

Ergebnis: 

ist ein binäres Feld, das mit PIC 99 zu definieren ist. Nach der Ausführung 
der gewünschten Funktion enthält das Feld Null, wenn die Funktion erfolg- 
reich ausgeführt worden ist. Ein Wert ungleich Null bedeutet, daß ein Fehler 


aufgetreten und die Funktion nicht ausgeführt worden ist. 


01 ERGEBNIS PIC 99 COMP. 


Funktion: 


ist ein binäres Feld, das mit PIC 99 zu definieren ist. Es enthält die Nummer 
der gewünschten Funktion. 


01 FUNKTION PIC 99 COMP. 


4-19 


Unterprogramm für spezielle Funktionen 


Das Unterprogramm stellt die folgenden Funktionen zu Verfügung: 


Funktion 


Führt ein Progrann aus 

Schreibt in die DOS-Kommandozeile 
Liest aus der DOS-Kommandozeile 
Übergibt die aktuelle Länge der DOS-Kommandozeile 
Wechselt das aktuelle Directory 

Setzt einen COBOL-Schalter 

Liest einen COBOL-Schalter 

Setzt einen RUN-TIME-Schalter 

Liest einen RUN-TIME-Schalter 

Stellt fest, ob die Datei existiert 
Übergibt die Anzahl der CALL-Paranmeter 
Löscht eine Datei 

Feststellen der Laufwerkskapazität 
Führt ein DOS-Kommando aus 

Fügt das Zeichen (BB hex) in 
LINE-SEQUENTIAL-Dateien ein 
Unterdrückt das Einfügen des Zeichens 
(88 hex) in LINE-SEQUENTIAL-Dateien 
Fügt ein Tabulatorzeichen in 
LINE-SEQUENTIAL-Dateien ein 
Unterdrückt das Einfügen des Tabulatorzeichens 
in LINE-SEQUENTIAL-Dateien 


Diese Funktionen werden anschließend mit den erforderlichen Parametern 


beschrieben. 


Parameter: 


ist ein alphanumerisches Feld, dessen Länge, Aufbau und Inhalt von der ge- 
wünschten Funktion abhängig ist. 
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PARAMETER PIC X( ). 


Unterprogramm für spezielle Funktionen 


Funktion 1 


Beendet das aktuelle Programm, lädt ein neues und führt es aus. 


Die Parameter für Funktion 1 bestehen aus 2 Feldern: 


= Länge: enthält die Länge des Programmnamens. 
u Programmname: ist ein alphanumerisches, in der Länge variables 


Feld und enthält den Name des Programms, welches ausgeführt 
werden soll. 


01 PARAM-X91-1. 
05 LAENGE PIC 99 COMP. 
05 PROG-NAME PIC X(8). 


Beispiel: 
MOVE 1 TO FUNKTION. 
MOVE 7 TO LAENGE. 
MOVE "SUBPROG" TO PROG-NAME. 


CALL X"91" USING ERGEBNIS, FUNKTION, PARAM-X91-1. 
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Funktion 2 
Überträgt den Inhalt eines Puffers in die DOS-Kommandozeile. Es können 


maximal 120 Bytes übertragen werden. Bei Überlauf in der Kommandozeile 
enthält das Ergebnis Feld einen Wert ungleich Null. 


Zu beachten: 
Die übertragung eines Kommandos in die Kommandozeile bewirkt nicht 
seine Ausführung, vielmehr wird dies durch die Funktion 35 erreicht. 
Die Parameter für Funktion 2 bestehen aus 2 Feldern: 
= Länge: enthält die Länge der zu übertragenden Zeichen. 
= Kommandopuffer: ist ein alphanumerisches, in der Länge va- 


riables Feld, enthält die zu übertragenden Zeichen (DOS-Kom- 
mando). 


01 PARAM-X91-2. 
805 LAENGE PIC 99 COMP. 
05  KOMMANDOPUFFER PIC X(129). 


Siehe Programmbeispiel PGM02 
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Funktion 3 


Überträgt den Inhalt der DOS-Kommandozeile in einen Puffer. Das Ergebnis 
enthält Null, wenn die Kommandozeile leer ist. 


Die Parameter für Funktion 3 bestehen aus 2 Feldern: 


m Länge: enthält die Länge der zu lesenden Zeichen. 


= Puffer: ist ein alphanumerisches, in der Länge varıables Feld und 
wird mit den eingelesenen Zeichen versorgt. 


01 PARAM-X91-3. 
05 LAENGE PIC 99 COMP. 
05 PUFFER PIC X(120). 
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Funktion 4 
Übergibt die aktuelle Länge der DOS-Kommandozeile in einem Datenfeld. 
Der Parameter für Funktion 4 ist ein Datenfeld, ın dem die gefundene Länge 


übertragen wird. 


01 LAENGE PIC 99 COMP. 


Funktion 8 


Wechselt das aktuelle Directory 


Die Parameter für Funktion 8 bestehen aus 2 Feldern: 


= Länge: enthält die Länge des neuen Pfades einschließlich des 
Zeichens (back slash \). 


= Verzeichnis: ist ein alphanumerisches, in der Länge variables 
Feld, enthält wahlweise die Laufwerksbezeichnung, jedoch den 
Namen des neuen Directory und endet mit hex 00. 


Di PARAM-X91-8. 
05 LAENGE PIC 99 COMP. 
05 VERZEICHNIS PIC X(32). 


Siehe Programmbeispiel PGM04 
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Funktion 11 


Unterprogramm für spezielle Funktionen 


Setzt einen oder mehrere COBOL-Schalter auf "ein" bzw. "aus". 


Die Parameter für Funktion 11 bestehen aus 2 Feldern: 


= Schaltertabelle: besteht aus 8 Elementen für die COBOL-Schal- 
ter 0-7. Eine 1 im ersten Element setzt Schalter O auf "ein", eine 0 
setzt ihn auf "aus". 


= ANSI-DEBUG: enthält 1, wenn der Schalter für den ANSI- 
STANDARD-DEBUG-Modul auf "ein" gesetzt werden soll, bzw. 
0 für "aus". 


01 


Beispiel: 


PARAM-X91-11. 


05 


SCHALTER 


PIC 99 COMP OCCURS 8. 


85 ANSI-DEBUG PIC 99 COMP. 


Die COBOL-Schalter 0, 4, und 7 sollen auf "ein", alle anderen auf "aus" ge- 


setzt werden. 


MOVE 


MOVE 
MOVE 
MOVE 
MOVE 
MOVE 
MOVE 
MOVE 
MOVE 


MOVE 


CALL 


11 TO FUNKTION. 


TO 
TO 
TO 
TO 
To 
TO 
TO 
TO 


- a >; yo ao 9 8 — 


® TO 


SCHALTER 
SCHALTER 
SCHALTER 
SCHALTER 
SCHALTER 
SCHALTER 
SCHALTER 
SCHALTER 


(1). 
(2). 
(3). 
(4). 
(5). 
(6). 
(7). 
(8). 


ANSI-DEBUG. 


x"91" USING ERGEBNIS, FUNKTION, PARAM-X91-11. 
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Funktion 12 

Liest einen oder mehrere COBOL-Schalter 

Nie Parameter für Funktion 12 sind die gleichen wie bei Funktion 11, es wird 
jedoch eine 1 im Tabellenelement eingetragen, wenn der zugehörige Schalter 


auf "ein", bzw. eine 0, wenn der Schalter auf "aus" steht. 


CALL X"91" USING ERGEBNIS, FUNKTION, PARAM-X91-11. 


Funktion 13 
Setzt einen RUN-TIME-Schalter auf "ein" bzw. "aus". 
Das RUN-TIME-System von Micro Focus verfügt über 26 Alphabetschalter 
von A-Z. Sie werden RUN-TIME-Schalter genannt und können vom 
COBOL-Programm gesetzt oder abgefragt werden. 
Diese Schalter können auch außerhalb des COBOL-Programms bei der 
Ausführung mit RUN-Funktion bzw. beim Erstellen einer EXE-Datei gesetzt 
werden. Z.B. 
C>COBOL RUN Programmname +B 
oder 
C>COBOL BUILD Programmname +B 
Die Parameter für Funktion 13 bestehen aus: 
= Schaltertabelle: mit 26 Elementen für die RUN-TIME-Schalter 
A-Z. Eine 1 im ersten Element setzt Schalter A auf "ein", eine 0 


setzt ıhn auf "aus", usw. 


01 PARAM-X91-13. 
85 SCHALTER PIC 99 COMP OCCURS 26. 
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Beispiel: 
Die RUN-TIME-Schalter A, C und Z sollen auf "ein", alle anderen auf "aus" 
gesetzt werden. 

MOVE 13 TO FUNKTION. 

MOVE 1 TO SCHALTER (1). 


MOVE 1 TO SCHALTER (3). 
MOVE 1 TO SCHALTER (26). 


CALL X"91" USING ERGEBNIS, FUNKTION, PARAM-X91-13. 


Funktion 14 
Liest einen RUN-TIME-Schalter 


Mit dieser Funktion können Sie feststellen, ob ein Alphabetschalter gesetzt 
oder nicht gesetzt ist. 


Die Parameter für Funktion 14 sind die gleichen wie bei Funktion 13. Eine 1 
im ersten Element zeigt jedoch an, daß der Schalter A gesetzt ist, usw. 
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Funktion 15 


Stellt fest, ob die Datei existiert. 


Die Parameter für Funktion 15 bestehen aus: 


m Länge: ist ein binäres Feld, das mit PIC 99 zu definieren ist, und 
enthält die Länge des Dateinamens. 


= Dateiname: ist ein alphanumerisches Feld mit einer variablen 
Länge und enthält den Dateinamen. 


01 PARAM-X91-15. 
05 LAENGE PIC 99 COMP. 
05 DATEI-NAME PIC X(14). 


MOVE 15 TO FUNKTION. 


CALL X"91" USING ERGEBNIS FUNKTION PARAM-X91-15. 


Das Ergebnisfeld enthält 0, wenn die Datei existiert. 


Siehe Programmbeispiel PGM03 
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Funktion 16 
Übergibt die Anzahl der von einem Hauptprogramm an ein Unterprogramm 


übergebenen Parameter. 


Die Funktion ist sinnvoll, wenn man in einem aufgerufenen Programm (Un- 
terprogramm) feststellen möchte, wie viele Parameter hier übergeben wur- 
den. Nach der Ausführung der Funktion 16 zeigt eine 0 im Ergebnisfeld, daß 
das laufende Programm als Hauptprogramm ausgeführt und nicht durch eine 
CALL-Anweisung aufgerufen wird. 


Der Parameter für Funktion 16: 


= Anzahl: ist ein numerisches Feld, welches die Anzahl der überge- 
benen Parameter enthält. 


01 ANZAHL PIC 99 COMP. 


Beispiel: 
MOVE 16 TO FUNKTION. 


CALL X"91" USING ERGEBNIS, FUNKTION, ANZAHL. 


Siehe Programmbeispiel PGM05 
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Funktion 18 


Löschen einer Datei 


Die Parameter für Funktion 18 bestehen aus 2 Feldern: 


w= Länge: enthält die Länge des Dateinamens. 


= Dateiname: ist ein alphanumerisches, in der Länge variables Feld, 
enthält den Namen der Datei, welche gelöscht werden soll. 


01 PARAM-X91-18. 
05  LAENGE PIC 99 COMP. 
05 DATEI-NAME PIC X(13). 


Wurde die Datei erfolgreich gelöscht, so enthält das Ergebnisfeld 0. 


Beispiel: 
MOVE 18 TO FUNKTION. 
MOVE 9 TO LAENGE. 
MOVE "DATEN.$$$" TO DATEI-NAME. 


CALL X"91" USING ERGEBNIS, FUNKTION, PARAM-X91-18. 


Siehe Programmbeispiel PGM06 
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Funktion 26 


Feststellen der Laufwerkskapazität 


Die Parameter für Funktion 26 bestehen aus 2 Feldern: 


= ein binäres Feld mit dem Wert O0 und 


= ein 1stelliges alphanumerisches Feld für die Laufwerksbezeich- 
nung. 


Diese Funktion übergibt beginnend mit dem ersten Byte in Parameter 2 Da- 


tenfelder von jeweils PIC 9(8) COMP. Das erste enthält die Anzahl der noch 
freien Bytes, das zweite die gesamte Kapazität des Laufwerks. 


01 PARAMETER. 
05 NULL-NULL PIC 9(82) COMP VALUE ®. 
05 LAUFWERK PIC X(01). 
01 FILLER REDEFINES PARAMETER. 
085 NOCH-FREI PIC 9(08) COMP. 
05 GESAMT PIC 9(908) COMP. 
MOVE 26 TO FUNKTION. 
CALL X"91" USING ERGEBNIS FUNKTION PARAMETER. 
Enthält das Ergebnisfeld 0, so wurde die Funktion erfolgreich ausgeführt, an- 


sonsten ist ein Fehler aufgetreten (z.B. falsche Laufwerksbezeichnung). 


Siehe Programmbeispiel PGM22 
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Funktion 35 
Leitet die Ausführung eines DOS-Kommandos ein. 


Die Parameter für Funktion 35 bestehen aus 2 Feldern: 


m Länge: enthält die Länge der Kommandozeile. 
= Wert: ıst ein binäres Feld, enthält immer hex 00. 
Es wird immer das Kommando ausgeführt, welches durch die Funktion 2 in 
die Kommandozeile geschrieben worden ist. 
01 PARAM-X91-35. 
05 LAENGE PIC 99 COMP. 
05 WERT-O® PIC 99 COMP VALUE 2. 
Beispiel: 
Ausführen eines beliebigen DOS-Kommandos aus dem COBOL-Programm. 
MOVE 2 TO FUNKTION. 
MOVE 9 TO LAENGE IN PARAM-X91-2. 
MOVE "DIR *.CBL" TO KOMMANDOPUFFER. 
CALL X"91" USING ERGEBNIS, FUNKTION, PARAM-X91-2. 
MOVE 35 TO FUNKTION. 


MOVE 9 TO LAENGE IN PARAM-X91-35. 
CALL X"91" USING ERGEBNIS, FUNKTION, PARAM-X91-1. 


Siehe Programmbeispiel PGM02 
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Funktion 46 
Erlaubt dem Benutzer das Einfügen von Nullzeichen (hex 00) ın LINE- 
SEQUENTIAL-Dateien, und zwar vor jedem Code, der kleiner als (1B hex) 
ist. Normalerweise werden solche Zeichen, deren Code kleiner als (1B hex) 
ist, noch vor dem Schreiben in eine LINE-SEQUENTIAL-Datei ausgefiltert. 
Mit Hilfe der Funktion 46 können solche Zeichen mit vorangestellten Nullen 
(00 hex) geschrieben werden. (Diese Eigenschaft bei LINE-SEQUENTIAL- 
Dateien gilt nur für PROFESSIONAL-COBOL-Versionen, die älter als die 
Version 1.2 sind). 
Der Parameter für Funktion 46: 

m Dateiname: ist ein alphanumerisches, in der Länge variables Feld 

und enthält den SELECT-Name der LINE-SEQUENTIAL-Da- 


teı. 


01 DATEI-NAME PIC X(13). 


Beispiel: 


MOVE 46 TO FUNKTION. 
MOVE "STEUER.FIL" TO DATEI-NAME. 


CALL X"91" USING ERGEBNIS, FUNKTION, DATEI-NAME. 
Siehe Programmbeispiel PGM21 


Funktion 47 


Unterdrückt das Einfügen des Zeichens Nullzeichen (hex 00) in LINE- 
SEQUENTIAL-Dateien. Diese Funktion schaltet also Funktion 46 aus. 


Siehe Programmbeispiel PGM21 
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Funktion 48 


Erlaubt dem Benutzer das Einfügen von Tabulatorzeichen (hex 09) in LINE- 
SEQUENTIAL-Dateien. Beim Lesen werden Tabulatorzeichen jeweils ın 8 
Leerzeichen umgewandelt. Vor dem Schreiben in einer Diskettendatei wer- 
den alle 8 Leerzeichen in einem Tabulatorzeichen (hex 09) komprimiert. 
(Diese Eigenschaft bei LINE-SEQUENTIAL-Dateien gilt nur für PROFES- 
SIONAL-COBOL-Versionen, die älter als die Version 1.2 sind). 


Der Parameter für Funktion 48: 
= Dateiname: ist ein alphanumerisches, in der Länge varıables Feld 
und enthält den SELECT-Name der LINE SEQUENTIAL-Da- 


te1. 


01 DATEI-NAME PIC X(13). 


Funktion 49 


Unterdrückt das Einfügen des Zeichens Tabulatorzeichen (hex 09) in LINE- 
SEQUENTIAL-Dateien. Diese Funktion schaltet also Funktion 48 aus. 


Beim Lesen werden Tabulatorzeichen jeweils in 8 Leerzeichen umgewandelt. 


Beim Schreiben in einer Diskettendatei werden Leerzeichen als Leerzeichen 
geschrieben. 
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Bildschirm-Steuerung/Benutzerattribute/ANSLSYS 


Format: 


CALL X"A7" USING Funktion, Parameter 


Beschreibung der USING-Parameter: 


01 FUNKTION PIC 9(2) COMP. 


Für Funktion 16 und 18: 


01 PARAMETER PIC 9(2) COMP. 
Für Funktion 6 und 7: 
01 PARAMETER PIC X. 


Für Funktion 17: 
01 PARAMETER. 


85 PARAM-1 PIC 9(2) COMP. 
05 PARAM-2 PIC 9(2) COMP. 
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Folgende Funktionen können benutzt werden: 


Funktion Bedeutung Parameter 


Liest Benutzerattribut Enthält nach der Ausführung 
das eingelesene Benutzer- 
attribut. 


Setzt Benutzerattribut Enthält das zu setzende 
Benutzerattribut. 


Cursor verändern 2 Felder, die die Form des 
Cursors bestimmen. 


Setzt den ANSI.SYS ein Schaltet ANSI.SYS aus. 
oder aus. Normalerweise ist ANSI.SYS 
ausgeschaltet. 


Schaltet ANSI.SYS ein 


Bu 
Schaltet Benutzerattribut| 8 Schaltet das Attribut ein. 
ein oder aus. Normalerweise ist 
Benutzerattribut 
ausgeschaltet. 
Schaltet das Attribut aus. 
Du 


Um nun Texte mit Benutzerattributen am Bildschirm zu senden, muß zu- 
nächst das Benutzerattribut mittels Funktion 7 gesetzt und anschließend mit- 
tels Funktion 16 eingeschaltet (aktiviert) werden. 


Wenn das Benutzerattribut gesetzt und eingeschaltet ist, wird bei der Text- 
ausgabe auf dem Bildschirm das im Parameter eingesetzte Zeichen (Benut- 
zerattribut) verwendet, sofern der ANSI.SYS-Bildschirmtreiber nicht mit 
Funktion 18 eingeschaltet wurde. 


Siehe auch Kapitel 2 (Bildschirmattribute). 


4-36 


Unterprogramm für spezielle Funktionen 


Beispiel: 


Setzen und Einschalten des Benutzerattributs auf rot-blinkende Eigenschaf- 
ten. 


01 FUNKTION PIC 9(2) COMP. 
01 PARAMETER-7 PICX. 
01 PARAMETER-16 PIC 9(2) COMP. 


* Setzen des Benutzerattributs auf 
rot-blinkend 


MOVE 7 TO FUNKTION. 


MOVE X"8C" TO PARAMETER-7. 
CALL X"A7" USING FUNKTION PARAMETER-7. 


* Einschalten des Benutzerattributs 
MOVE 16 TO FUNKTION. 


MOVE 82 TO PARAMETER-16. 
CALL X"A7" USING FUNKTION PARAMETER-16. 


* Ausschalten des Benutzerattributs 
MOVE 16 TO FUNKTION. 
MOVE 1 TO PARAMETER-16. 


CALL X"A7" USING FUNKTION PARAMETER-16. 


Siehe Programmbeispiel PGM23, PGM15 
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Verändern des Cursors mit X"A7" 


Der Cursor ist ein Block, der aus 14 parallelen Linien (0-13) besteht. Mit dem 
Unterprogramm X"A7" und Funktion 17 kann die Form des Cursors be- 
stimmt werden. Dabei können 2 Blöcke entstehen oder der Cursor unsichtbar 
gemacht werden. Der Parameter A bestimmt die Anzahl der Linien im obe- 
ren Block, Parameter B bestimmt die Anzahl der Linien im unteren Block. 


® 
1 


12 
13 
Cursorblock 
Wenn A < B ist, werden Linien 0 bis A und Linien B bis 13 gesetzt. 


Wenn A = Bist, wird nur Linie A gesetzt. 


Wenn A > Bist, werden Linien B bis A gesetzt. 


Beispiel: 
01 PARAMETER. 
DB A PIC 99 COMP. 
05 B PIC 99 COMP. 


MOVE 17 TO FUNKTION. 
CALL X"A7" USING FUNKTION PARAMETER. 


Besonderheiten: 
Wenn A = 14 undB = (0), erscheint der Cursor in vollem Block. 
Wenn A = 14 und B = 16, verschwindet der Cursor. 


Siehe Programmbeispiel PGM25 
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Unterdrückung des Erscheinens von Passworten/ 
Voranzeige der ACCEPT-Felder/ Benutzer-Funk- 
tionstasten 


Das Unterprogramm X"AF" kann verwendet werden, um die Anzeige eines 
Passwortes während der Eingabe zu unterdrücken (schwarz auf schwarz) bzw. 
um zu bestimmen, ob ein ACCEPT-Feld vor der Eingabe angezeigt oder 
nicht angezeigt werden soll. Eine weitere Funktion dieses Unterprogramms 
liegt in der Aktivierung von Benutzer-Funktionstasten (z.B. Funktionstaste 
F1) bzw. ADIS-Modul-Funktionstasten im Zusammenhang mit der CRT- 
STATUS-Klausel. 


Format: 


CALL X"AF" USING Flag, Parameter 


Beschreibung der USING-Parameter: 


Flag: 


ist ein binäres Feld mit PIC 99, dessen Wert immer 1 sein muß. Jeder andere 
Wert als 1 ergibt ein undefinierbares Ergebnis. 


01 FLAG PIC 99 COMP VALUE 1. 
Parameter: 


ist eine Datengruppe, deren Aufbau und Inhalt von der gewünschten Wirkung 
des Unterprogramms abhängig ist. 
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Die Parameter für Passwort-Geheimhaltung bestehen aus: 
= einem 2stelligen binären Feld, dessen Inhalt sein kann: 
0 für die normale Anzeige des Passwortes (Standard), 
1 für die Unterdrückung der Anzeige des Passwortes nur für die 
nächste auszuführende ACCEPT-Anweisung. Bei einer nach- 
folgenden ACCEPT-Anweisung kann das Passwort gesehen 


werden. 


2 für die Unterdrückung der Anzeige des Passwortes bis die An- 
zeige wieder mit 0 eingeschaltet wird. 


= einem Istelligen alphanumerischen Feld, dessen Inhalt 2 sein 
muß, 


= einem 2stelligen binären Feld, dessen Inhalt 84 sein muß und 
=  cinem 2stelligen binären Feld, dessen Inhalt 1 sein muß. 
Siehe Programmbeispiel PGM14 
Beispiel: 


Unterdrückung der Anzeige des Passwortes während der Eingabe, bis sie 
wieder freigegeben wird. 


01 PARAM-PASSWORT. 


05 PARAM-1 PIC 99 COMP. 

05 PARAM-2 PIC X VALUE "2". 

05 PARAM-3 PIC 99 COMP VALUE 84. 
05 PARAM-4 PIC 99 COMP VALUE 1]. 


MOVE 2 TO PARAM-1. 
CALL X"AF" USING FLAG PARAM-PASSWORT. 


ACCEPT PASSWORT AT 1040. 
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Die Parameter für die Voranzeige von ACCEPT-Feldern bestehen aus: 


= einem 2stelligen binären Feld, dessen Inhalt sein kann: 


0 für die Unterdrückung der Voranzeige von ACCEPT-Feldern. 
Numerisch-druckaufbereitete Felder werden angezeigt, sobald 
der Cursor darauf positioniert wird, numerische Felder, sobald 
eine Eingabe in das Feld gemacht wird. 


1 für die Unterdrückung der Voranzeige von ACCEPT-Feldern. 
Numerische und numerisch-druckaufbereitete Felder werden 
angezeigt, sobald der Cursor darauf positioniert wird. 

2 für individuelle Voranzeigen von Feldinhalten. D.h., sobald 
der Cursor in ein Feld positioniert wird, wird sein Inhalt ange- 
zeigt. 

3 zum Voranzeigen aller Feldinhalte, bevor sie mit ACCEPT 
eingegeben werden können (Standard). 

= einem 1stelligen alphanumerischen Feld, dessen Inhalt 2 sein 
muß, 


= einem 2stelligen binären Feld, dessen Inhalt 76 sein muß und 


= einem 2stelligen binären Feld, dessen Inhalt 1 sein muß. 


Siehe Programmbeispiel PGM14 


4-41 


Unterprogramm für spezielle Funktionen 


Zu beachten: 


Die Voranzeige wird in jedem Fall unterdrückt, wenn die Passwort-Geheim- 
haltung aktıv ist. 


Beispiel: 


Unterdrückung der Voranzeige von Datenfeldern. 


01 PARAM-VORANZEIGE. 


05 PARAM-1 PIC 99 COMP. 

05 PARAM-2 PIC X VALUE "2". 

05 PARAM-F PIC 99 COMP VALUE 76. 
05 PARAM-4 PIC 99 COMP VALUE 1. 


MOVE 2 TO PARAM-1. 
CALL X"AF" USING FLAG PARAM-PASSWORT. 


ACCEPT DATENFELD AT 1048. 
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Die Parameter für Benutzer-Funktionstasten bestehen aus: 
= cinem 2stelligen binären Feld, dessen Inhalt sein kann: 
0 deaktiviert die Benutzer-Funktionstasten. 
1 aktiviert die Benutzer-Funktionstasten. 
Wenn diese aktiv sind, wird die Eingabe während einer 
ACCEPT-Anweisung sofort beendet, sobald eine der festge- 
legten Tasten gedrückt wird. Die gedrückte Taste kann mit 


Hilfe des CRT-STATUS-Feld festgestellt werden (siehe an- 
schließenden Text). 


= einem Istelligen alphanumerischen Feld, dessen Inhalt 1 sein 
muß, 


= cinem 2stelligen binären Feld, welches die Nummer der ersten 
Benutzer-Funktionstaste beinhaltet, die aktiviert werden soll. 


= einem 2stelligen binären Feld, welches die Anzahl der zu aktivie- 


renden Tasten ausgehend von der ersten Nummer beinhaltet. 


Siehe Programmbeispiel PGM17 
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Die Tabelle der Benutzer-Funktionstasten bietet max. 91 Tasten zu aktivie- 
ren. Sollen z.B. die Tasten (Fi) bis aktiviert werden, so muß der dritte 
Subparameter auf 1 (erste Nummer) und der vierte Subparameter auf 10 (10 
Tasten) gesetzt werden. 


Es können nur Tastengruppen auf einmal aktiviert werden. Man kann jedoch 
das Unterprogramm mehrfach mit unterschiedlichen Tastengruppen aufru- 
fen, um eine bestimmte Gruppe zur gegebenen Zeit zu aktivieren. Dabei 
bleiben alle aktivierten Gruppen so lange in Kraft, bis sie durch die Funktion 
0 deaktiviert werden. 


Eine weitere Methode, Funktionstasten individuell zu programmieren, liegt in 
der Anwendung des Unterprogramms X"B0". 


(ESCJape 


(Fi) bis (FIR) 
+ (Fi) bis ([Fie) 
+ (Fi) bis [Fi 
+ (Fi) bis (Fi) 


1) vis [(P) 


+ 


nicht definiert 


Alt) + (A) bis (Z) 


Tabelle der Benutzer-Funktionstasten 


Unterprogramm für spezielle Funktionen 


Die Parameter für ADIS-Modul-Funktionstasten bestehen aus: 


einem 2stelligen binären Feld, dessen Inhalt sein kann: 


1 aktiviert die ADIS-Modul-Funktionstasten. Wenn diese aktıv 


sind, wird die Eingabe während einer ACCEPT-Anweisung 
sofort beendet, sobald eine der festgelegten Tasten gedrückt 
wird. Die gedrückte Taste kann mit Hilfe des CRT-STATUS- 
Feld festgestellt werden. 


deaktiviert die ADIS-Modul-Funktionstasten. 


aktiviert die ADIS-Modul-Funktionstasten nur dann, wenn die 
standardmäßig festgelegte Wirkung für eine bestimmte Taste 
nicht mehr ihre Wirkung während der ACCEPT-Anweisung 
erzielen kann. Nehmen wir an, die Tabulator-Taste ((X )) 
wurde aktiviert (sie bewirkt standardmäßig den Sprung zum 
nächsten Feld). Wenn diese Taste gedrückt wird, wird die 
ACCEPT-Anweisung wirklich beendet, während der Cursor 
im letzten Feld steht. 


Diese Einrichtung bietet dem Benutzer wertvolle Möglichkeiten, während 
einer ACCEPT-Anweisung die Eingabe eines Feldes sofort zu beenden, 
ohne die [Return)-Taste drücken zu müssen (wenn z.B. eine sofortige Prüfung 
der Eingabe durchgeführt werden soll). 


einem I1stelligen alphanumerischen Feld, dessen Inhalt 2 sein 
muß, 


einem 2stelligen binären Feld, welches die Nummer der ersten 
ADIS-Modul-Funktionstaste beinhaltet, die aktiviert werden soll. 


einem 2stelligen binären Feld, welches die Anzahl der zu aktivic- 
renden bzw. deaktivierenden Tasten, ausgehend von der ersten 
Nummer, beinhaltet. 


Siehe Programmbeispiel PGM13 
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Sonderfunktion: 


Die ACCEPT-Anweisung kann auch sofort beendet werden, sobald das letzte 
Zeichen eines Feldes eingegeben worden ist, wenn die folgenden Parameter 
verwendet werden: 


BEISZER 


Zum Ausschalten dieser Funktion verwenden Sie bitte die Parameter: 


EIEICHEN 
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Die CRT-STATUS-Klausel 


Die CRT-STATUS-Klausel verknüpft ein 3stelliges Feld mit den aktivierten 
Benutzer- bzw. ADIS-Modul-Funktionstasten. Dabeı enthält das erste Byte 
eine 1, wenn eine der aktivierten Benutzer-Funktionstasten während 
ACCEPT gedrückt wird, bzw. eine 2, wenn eine der aktivierten ADIS-Modul- 
Funktionstasten gedrückt wird. 


Enthält das erste Byte eine 0, so wurde die ([Return)-Taste gedrückt. Das 
zweite Byte enthält die Tastennummer im binären Format. Das dritte Byte 


enthält ein Fehlerkennzeichen (nicht näher definiert), wenn ein Fehler auf- 
tritt. 


SPECIAL-NAMES. 

CRT STATUS TASTEN-FELD. 
01 TASTEN-FELD PIC XXX. 
1 FILLER REDEFINES TASTEN-FELD. 


05 KZ PICX. 
88 TASTE-GEDRUECKT VALUE 1. 


05 TASTEN-NR PIC 99 COMP. 


85 FEHLER-KZ PICXK. 
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Beispiel: 
In einem Programm soll während der Eingabe mit der ACCEPT-Anweisung 


eine der Tasten bzw. der Tastenkombinationen (F1)-[F12), + (F1)-[F1e), 
+ [F1)-[F18) und + ([F1)-[F12) die Eingabe beenden. 


81 PARAM-BENUTZER-TASTEN. 


085 AKTIV-DEAKTIV PIC 99 COMP. 
85 PARAM-2 PICX VALUE "1". 
085 ERSTE-NUMMER PIC 99 COMP. 
05 ANZAHL-TASTEN PIC 99 COMP. 


MOVE 1 TO AKTIV-DEAKTIV. 

MOVE 1 TO ERSTE-NUMMER. 

MOVE 48 TO ANZAHL-TASTEN. 

CALL X”"AF” USING FLAG PARAM-BENUTZER-TASTEN. 
ACCEPT MASKEBI AT 0101. 

IF TASTE-GEDRUECKT 


IF TASTEN-NR = 31 DISPLAY "ALT + Fi” 
ELSE IF TASTEN-NR = 32 DISPLAY "ALT + F2” 


USV. 


Siehe Programmbeispiel PGM13, PGM17 
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Programmieren der Funktionstasten 


Das Unterprogramm X"B0" bietet die Möglichkeit, beliebige Tasten und 
Tastenkombinationen während einer Eingabe mit ACCEPT zu erkennen. 


Format: 


CALL X"B®" USING Funktion, Parameter 


Beschreibung der USING-Parameter: 
Funktion: 


ist ein binäres Feld mit PIC 99, dessen Inhalt die gewünschte Funktion be- 
stimmt: 


Funktions Funktion 
nr. 


Baut eine Tabelle mit Funktionstasten auf 


Testet den Status der shift-ähnlichen Tasten 


Testet den Status des Druckers 
Setzt einen DOS-Returncode 


Liest den DOS-Returncode 
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Parameter: 


ist eine Datengruppe, deren Aufbau und Inhalt von der gewünschten Wirkung 
des Unterprogramms abhängig ist. 


Die Parameter für Funktion 0 sind: 


Ergebnis: ein 2stelliges binäres Feld, welches nach der Ausfüh- 
rung die Nummer des Tabelleneintrags, dessen Taste erkannt 
wurde, beinhaltet. Das Ergebnisfeld enthält 0, wenn die (RETURN)- 
Taste gedrückt wurde, bzw. 255, wenn eine Taste gedrückt wurde, 
die einen 2-Byte-Code erzeugt und nicht in der Tabelle der 
Funktionstasten enthalten ist. 


Datengruppe: diese besteht für jede zu erkennende Taste aus 
einem Längenfeld und einem Codefeld. 


Das Längenfeld enthält 1 oder 2 in binärem Format für die 
Codelänge 1 oder 2. 


Das Codefeld ist ein 1 oder 2 Byte großes Feld und enthält den 
Code, der von der Taste erzeugt wird (siehe Codetabelle im 
Anhang). 


Endkennzeichen: ein Feld mit hex 00: signalisiert das Ende der 
Funktionstasten-Tabelle. 


Siehe Programmbeispiel PGM07, PGM12, PGM08, PGM10 
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Beispiel: 


Unterprogramm für spezielle Funktionen 


Erkennen der Tasten (Ft, (F2], +) und (-). 


01 


01 


FUNKTION PIC 99 COMP. 


FUNKTION-TABELLE. 


03 ERGEBNIS PIC 99 COMP. 
053 FILLER PIC X(10) 

VALUE X"02005B020053C012BoO12D". 
03 ENDE-KZ PIC X VALUE X"09". 


CALL X"BOo" USING FUNKTION FUNKTION-TABELLE. 


ACCEPT FELD AT 1018. 


IF ERGEBNIS = 1 DISPLAY "Fi GEDRÜCKT" 

ELSE IF ERGEBNIS 2 DISPLAY "F2 GEDRÜCKT" 
ELSE IF ERGEBNIS 3 DISPLAY "+ GEDRÜCKT" 
ELSE IF ERGEBNIS = 4 DISPLAY "- GEDRÜCKT". 
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Erläuterung: 
1 2 3 4 <---- Eintragsnummer 
BB IEESEIEZSRIEITIEIEN 


L Endkennzeichen 
Code von - 
Länge vom Code - 


m” 


Code von + 
Länge vom Code + 


Code von F2 
Länge vom Code F2 


Code von F1 
Länge vom Code FI. 


Tastennummer 
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Erkennen eines Funktionstasten-Drucks 


Die ACCEPT-Anweisung erkennt normalerweise nur die folgenden Tasten 


mit deren Wirkungen: 


beenden der Eingabe 


bzw. (O7) 


positionieren des 
erste Feld in der 


(End) positionieren des 
aktuellen Feldes, 
in der Maske 


Shift] ) 
bzw. positionieren des 
davor 


positionieren des 
danach 


positionieren des 
nach links 


positionieren des 
nach rechts 


positionieren des 
nach oben (gleiche Spalte) 


positionieren des 


Cursors auf das 
Maske 


Cursors auf das Ende des 
dann auf das letzte Feld 


Cursors auf das Feld 


Cursors auf das Feld 


Cursors eine Spalte 


Cursors eine Spalte 


Cursors eine Zeile 


Cursors eine Zeile 


nach unten (gleiche Spalte) 


Während der Eingabe können also nur die obengenannten Funktionstasten 
betätigt werden. Jede andere Taste wird mit einem Piepton zurückgewiesen. 
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Andere Tasten können mit dem Unterprogramm X"BO" über eine Tabelle 
zugänglich gemacht werden. 


Das Unterprogramm braucht nur einmal aufgerufen zu werden, um den 
Druck einer Taste jederzeit zu erkennen. Dies gilt nur auf Programmebene, 
so hat X"BO" nur eine Wirkung auf das laufende Programm, externe COBOL- 
Unterprogramme können ihren eigenen Aufruf haben. 


Das Unterprogramm kann beliebig oft mit unterschiedlichen Tabellen aufge- 
rufen werden. Für die Zugänglichkeit einer bestimmten Taste gilt nur die im 
letzten Aufruf benutzte Tabelle. Die Tabelle kann jederzeit modifiziert wer- 
den, ohne daß das Unterprogramm noch einmal aufgerufen werden muß. 


Letztlich muß darauf hingewiesen werden, daß das Ergebnisbyte (Tastennr) 
nicht nur nach jeder ACCEPT-Anweisung aktualisiert wird, sondern auch 
nach jedem Aufruf des Unterprogramms X"83" (Lesen eines Zeichens von 
der Tastatur). 


Die Parameter für Funktion 2 sind: 


= Byte: enthält nach der Ausführung eine Bit-Tabelle; sie zeigt an, 
ob die Taste eingeschaltet (Bit = 1) oder ausgeschaltet (Bit = 0) 
ist. 


Ins 
Caps Lock 
Num Lock 


Scroll Lock 
Alt 
Ctrl 
Shift links 
Shift rechts 


JAN PWND—-MO 
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Der Zugriff auf die einzelnen Bits dieser Tabelle kann mit Hilfe 
des Unterprogramms X"F5" erleichtert werden. 


= Subparameter2: ein binäres Feld, welches immer wieder vor dem 
Aufruf des Unterprogramms auf 2 gesetzt werden muß. 


= Subparameter3: ein 6stelliges alphanumerisches Feld, dessen In- 
halt undefiniert ist. 


Für die ersten vier Tasten der obigen Tabelle wird das entspre- 
chende Bit bei jedem Drücken umgeschaltet. 


Für die letzten vier Tasten wird das entsprechende Bit nur dann 
auf 1 gesetzt, wenn die Taste während des Aufrufs tatsächlich ge- 
drückt ist. 


Siehe Programmbeispiel PGM26 
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Drucker testen 

Der Parameter für Funktion 7 ıst ein binäres Feld, dessen Inhalt: 
= 0 ist, wenn der Drucker nicht on-line, bzw. 
s= 1, wenn der Drucker off-line. 


Siehe Programmbeispiel PGM11 


Beispiel: 


81 DRUCKER-STATUS PIC 99 COMP. 


MOVE 7 TO FUNKTION. 
CALL X"BO" USING FUNKTION DRUCKER-STATUS. 
DOS-Returncode 


Der Parameter für Funktion 10 oder 11 ist ein binäres Feld, in dem der 
Returncode zu Verfügung gestellt wird. 


Siehe Programmbeispiel PGM10 


Beispiel: 


81 DOS-CODE PIC 99 COMP. 


MOVE 3 TO DOS-CODE. 
MOVE 18 TO FUNKTION. 
CALL X"BO" USING FUNKTION DOS-CODE. 
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Ein/Ausgabe von Attributen und Texten am Bild- 
schirm 


Das Unterprogramm X"B7" bietet bessere Möglichkeiten als DISPLAY, um 
Texte am Bildschirm zu schreiben. Mit diesem Unterprogramm erscheint das 
Bild auf einmal und schnell am Bildschirm, ohne dabei den Aufbau des Bild- 
schirmes durch die Cursorbewegungen zu sehen. 


Format: 


CALL X"B7" USING Funktion, Parameter, Puffer. 


Beschreibung der USING-Parameter: 


Funktion: 


ist ein binäres Feld mit PIC 99, dessen Inhalt die gewünschte Funktion be- 
stimmt: 


Funktions- Funktion 
nr. 
Liest Zeichen vom Bildschirm in den Puffer 


Schreibt Zeichen vom Puffer auf den 
Bildschirm 


Liest Attribute vom Bildschirm in den 
Puffer 


Schreibt Attribute vom Puffer auf den 
Bildschirm 


Löscht Zeichen auf dem Bildschirm 


Löscht Attribute auf dem Bildschirm 
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Parameter: 


ist eine Datengruppe, die aus 3 Feldern (jeweils PIC 9(4) COMP) besteht: 


= Länge: enthält die Länge der Texte bzw. Attribute, die geschric- 
ben oder gelesen werden sollen. 


s»  Bildschirmposition: enthält die Position des Bildschirmes, bei der 
Texte bzw. Attribute geschrieben oder gelesen werden sollen. In 
diesem Zusammenhang wird jede Bildschirmstelle mit einer Po- 
sition von 1 bis 2000 bezeichnet (z.B letzte Spalte in Zeile 1 hat 
Position 81). 


= Pufferposition: enthält die Position des Puffers, von der Texte 
bzw. Attribute geschrieben oder gelesen werden sollen. Die Puf- 
ferposition beginnt immer mit 1. 


Puffer: 


enthält Texte bzw. Attribute, die geschrieben oder gelesen werden sollen, und 
kann eine beliebige Länge haben. 


Für die Funktion 4 und 5 wird kein Puffer benötigt. 


Siehe Programmbeispiel PGM01, PGM10, PGM26 
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Zu beachten: 
Beim Lesen oder Schreiben von Texten bzw. Attributen ist die aktuelle Länge 
im Längenfeld allein dafür entscheidend, wie viele Bytes übertragen werden 


sollen. 


Wird eine Länge verwendet, die größer als die tatsächliche Pufferlänge ist, so 
werden die nachfolgenden Daten (nach dem Puffer) beim Lesen zerstört. 


Werden Zeichen auf den Bildschirm geschrieben, so wird das Benutzerattri- 
but benutzt, sofern dieses aktiv ıst. 
Beispiel: 
Es sollen jeweils aus dem Attributpuffer und aus dem Textpuffer 2000 Bytes 
geschrieben werden. 

01 LESEN-ZEICHEN PIC 9(2) COMP VALUE ®. 


1 SCHREIBEN-ZEICHEN PIC 9(2) COMP VALUE 1. 


1 LESEN-ATTR PIC 9(2) COMP VALUE 2. 
81 SCHREIBEN-ATTR PIC 9(2) COMP VALUE 3. 


01 FORM-PARAMETER. 


053 LAENGE PIC 9(4) COMP. 
053 BILDSCHIRM-POS PIC 9(4) COMP. 
03 PUFFER-POS PIC 9(4) COMP. 


CALL EIN-AUSGABE USING SCHREIBEN-ATTR 
FORM-PARAMETER 
PGMO1-00-ATTR. 


CALL EIN-AUSGABE USING SCHREIBEN-ZEICHEN 


FORM-PARAMETER 
PGM®1 -009. 
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Testen, ob ein Zeichen von der Tastatur eingegeben 
wurde 


Format: 


CALL X'"D9'" USING Parameter 


Parameter ist ein 2stelliges binäres Feld. Es ist nach der Ausführung 
= = (0, wenn keine Zeichen über die Tastatur eingegeben wurden 
und 
= <?>0, wennein Zeichen über die Tastatur eingegeben wurde. 
Beispiel: 


01 PARAM-DYI PIC 99 COMP. 


CALL X"D9" USING PARAM-D9. 


Zu beachten; 


m Das Unterprogramm funktioniert nicht im GO-Modus. 


Siehe Programmbeispiel PGM18, PGM20 
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Erzeugen eines Pieptons 


Format: 


CALL X"E5". 


Erzeugt einen Piepton von 1/8 Sekunden Dauer. 


Siehe Programmbeispiel PGM17 
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Positionierung des Cursors auf eine bestimmte Bild- 
schirmposition 


Format: 


CALL X"E6" USING Ergebnis, Parameter. 


Beschreibung der USING-Parameter: 
Ergebnis: 


ist ein binäres Feld mit PIC 99, welches keine Bedeutung hat. 


Parameter: 
ist eine Datengruppe, die aus 2 Feldern besteht: 
u» Zeile mit einem Inhalt von 0 bis 24. 


= Spalte mit einem Inhalt von 0 bis 79. 


Zu beachten; 


Wird ein Wert für Zeile bzw. Spalte benutzt, der nicht dem oben definierten 
Inhalt entspricht (0-24 bzw. 0-79), so wird der Cursor unsichtbar gemacht. 
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Packen eines Bytes 


Format: 


CALL X"F4" USING Byte, Tabelle. 


Beschreibung der USING-Parameter: 


Byte: 


ist ein PIC 99 Feld, in dem das Ergebnis nach der Ausführung zur Verfügung 
gestellt wird. 


Tabelle: 


ist ein Bereich mit 8 Elementen, der wie folgt zu definieren ist: 


81 TABELLE. 
05 ELEM PIC 9(2) COMP OCCURS 8. 


Das Packen eines Bytes bedeutet hier, daß jedes Bit des genannten Bytcs den 
Wert 0 oder 1 erhält, abhängig vom Inhalt des korrespondierenden Elements 
aus der Tabelle. 


Dabei kann der Inhalt dieses Tabellenelementes nur 0 oder 1 sein. Das erste 
Tabellenelement (Nr 1) korrespondiert mit dem höchstwertigen Bit usw. 


Dieses Unterprogramm kann also sinnvollerweise für den Zugriff auf Bit- 
ebene verwendet werden. Die folgende Darstellung veranschaulicht den Ab- 


lauf dieses Unterprogramms: 


Siehe Programmbeispiel PGM26 
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In Tabelle 0 ] 


ELEM(1) ELEM(2) ELEM(3) ELEM(4) ELEM(5) ELEM(6) ELEM(7) ELEM(8) 


III RL 


25 24 23 22 21 20 


Bit 27 26 

4 j\ 
en Byte | 
Beispiel: 


CALL X"F4" USING BYTE, TABELLE. 


Unterprogramm für spezielle Funktionen 


Entpacken eines Bytes 


Format: 


CALL X"F5" USING Byte, Tabelle. 


Beschreibung der USING-Parameter: 


Byte: 


ist ein PIC 99 Feld, welches den Ausgangswert beinhaltet. 


Tabelle: 


ist ein Bereich mit 8 Elementen, in dem das Ergebnis nach der Ausführung 
zur Verfügung gestellt wird. 


01 TABELLE. 
05 ELEM PIC 9(2) COMP OCCURS 8. 


Dieses Unterprogramm bewirkt genau das Gegenteil zum X"F4". Die fol- 
gende Darstellung veranschaulicht den Ablauf dieses Unterprogramms: 


Siehe Programmbeispiel PGM26 
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| 


Bit 27 26 25 


24 23 22 21 20 


li RL. 


ELEM(1) ELEM(2) ELEM(3) ELEM(4) ELEM(5) ELEM(6) ELEM(7) ELEM(8) 


0 Tabelle | 


Beispiel: 


CALL X"F5" USING BYTE, TABELLE. 


Soll festgestellt werden, ob das Bit 3 z.B. auf 1 steht, so kann dies mit der 
Abfrage 


IF ELEM (5) = 1 THEN 


erreicht werden. 
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Bibliothek 


Die Help-Einrichtung 


MICRO-FOCUS-Compiler erlauben dem Benutzer den Aufbau einer Help- 
Bibliothek in der eigenen Anwendung nach dem gleichen Prinzip, wie sie im 
COBOL-System auch verwendet wird. 


Hierzu entwickelt man die benötigten Hilfsinformationen als eine Bild- 
schirmmaske in FORMS. Jede Help-Maske muß einen bestimmten Namen 
aufweisen, der hier lautet: 


HELPxx 


Wobei xx 2 beliebige Zeichen sind, z.B. "H1", der vollständige Maskenname 
heißt dann "HELPH1.FRM". 


Der Aufruf der Help-Maske 


Eine Help-Maske kann mit dem Unterprogramm "S:HELP" aufgerufen wer- 
den, wobei das Zeichen "S" im Namen auf das Systemlaufwerk verweist und 
nicht etwa ein Laufwerk mit dem Namen S ist. Beim Aufruf des Unterpro- 
gramms wird ein Parameter, der die 2 variablen Zeichen zur Bestimmung der 
Maskennamen beinhaltet, übergeben. 
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Beispiel: 


01 HELP-ID PIC X(2). 


MOVE "H1" TO HELP-ID. 
CALL "S:HELP" USING HELP-ID. 


Die Ausführung dieser CALL-Anweisung bewirkt das Senden der Help- 
Maske am Bildschirm. 


Der Ablauf des Sendevorgangs 


Das Unterprogramm "S:HELP" sichert intern den aktuellen Inhalt des Bild- 
schirms, bevor die Help-Maske gesendet wird. Während die Help-Maske am 
Bildschirm angezeigt ist, kann der Benutzer außer und keine 
Eingabe machen. Diese bewirken eben, daß "S:HELP" die Anzeige der Help- 
Maske beendet und der gesicherte Bildschirminhalt wieder gesendet wird. 


Nach Beendigung der Anzeige der Help-Maske erhält die nächste Anweisung 
(nach dem CALL "S:HELP") die Steuerung. Es liegt also in der Verantwor- 
tung des Programmierers, wo die Programmsteuerung weitergehen soll. 


Beim Sichern bzw. Wiederanzeigen des aktuellen Inhalts des Bildschirms 


werden nicht nur Daten, sondern auch aktuelle Bildschirmattribute gesichert 
und angezeigt. 
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Der Aufbau einer Help-Maske 


Help-Masken werden wie bereits aufgeführt in FORMS erstellt. Dabei muß 
darauf geachtet werden, daß die Maske aus maximal 21 Zeilen (Bildschirm- 
zeilen 1-21) bestehen kann. "S:HELP" sendet aus der Help-Maske nur 21 
Zeilen, selbst wenn sie aus 25 Zeilen besteht. Die Bildschirmzeilen 22 bis 25 
werden nicht überschrieben, da man von der Annahme ausgeht, es könnte 
hier ein Anwendungsmenü stehen. 


Beim Erstellen der Help-Maske können Texte und beliebige Bildschirmattri- 
bute benutzt werden. Variable (Daten) haben hier keinen Sinn. 


In der Maske muß eine Aufforderung an den Benutzer gestellt werden, wo- 
nach die oder (F1)-Taste gedrückt werden soll, wenn die Anzeige 
der Help-Maske beendet werden muß. Wird eine andere Taste außer Leer- 
zeichen oder gedrückt, so blinkt der Text auf Zeile 21 zweimal und wird 
anschließend mit normalen Attributen angezeigt. Zwangsläufig sollte man 
hier dann die Aufforderung auf Zeile 21 plazieren. 


Beispiel: 


Hilfsinformationen 


Fi oder Leertaste beendet die Help-Anzeige 
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Einrichtung der Help-Bibliothek 


Help-Masken müssen nicht einzeln auf dem Systemlaufwerk stehen. 
PROFESSIONAL COBOL bietet die Möglichkeit, eine Help-Bibliothek mit 
aus dem COBOL-Hauptmenü einzurichten. Die Bibliothek muß den Na- 
men HELP.LIB aufweisen, daher muß die COBOL-eigene HELP.LIB vor- 
übergehend umbenannt werden, bis die Einrichtung der anwendungsbezoge- 
nen HELP.LIB beendet ist. 


Gehen Sie wie folgt vor, um eine HELP.LIB einzurichten: 


LIBRARY-Funktion vom Hauptmenü aufrufen 
F7 


erste HELP-Maske (z.B. HELPH1.FRM) laden, 


geben Sie als Name nur HELPH1 ein rs 


erste HELP-Maske (z.B. HELPH2.FRM) laden, 
geben Sie als Name nur HELPH?2 ein 
USW. F3 


Help-Bibliothek sichern, 
geben Sie als Name nur HELP ein F4 


LIBRARY-Funktion beenden Esc 
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Nun wurde eine Help-Bibliothek mit dem Namen HELP.LIB erstellt, die 
dann von der Anwendung angesprochen wird, wenn die Anweisung 


CALL "S:HELP" USING 
ausgeführt wird. 
Die Bibliothek ist jederzeit um weitere Help-Masken erweiterbar (auch nach 
der Implementierung), ohne daß eine zusätzliche Arbeit bezüglich des Binde- 
vorgangs oder ähnliches anfällt. Bei der Erweiterung der Help-Bibliothek 


muß im obigen Vorgang die HELP.LIB jedoch als erstes mit geladen 
werden. 


Die Implementierung 
Wird das Unterprogramm "S:HELP" in der Anwendung benötigt, so muß die- 
ses auch mitgebunden werden. Binden Sie deshalb das Unterprogramm 


"HELP.GNT" aus der COBOL.LIB während der Bindephase mit BUILD in 
Ihrer Anwendung. 


Siehe PGM29 
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6. Integration des system- 
internen Directory-Menüs 


PROFESSIONAL COBOL benutzt beim Laden und Sichern von Dateien in 
verschiedenen Funktionen des COBOL-Systems das Directory-Menü 
"S:NAME", mit dem man Dateien eines bestimmten Typs auflisten kann. 


Dieses Menü kann auch in der eigenen Anwendung integriert werden, um 
anwendungsbezogene Dateien aufzulisten. 

Die Leistung des Directory-Menüs 

Das Directory-Menü arbeitet in zwei Stufen. In der ersten Stufe kann der Be- 


nutzer Dateien eines bestimmten Typs auflisten, ein anderes Unterverzeich- 
nis aktivieren oder ein anderes Laufwerk wählen. 


Directory-G:————————————————————————————————— — — — Ins-Caps-Num-Scroll 
Fi=help F2=dir F3=chdir F9=drv 
Escape 


Die erste Stufe des Directory-Menüs 
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Subdirectory Date Time 


.. (parent) 

COBPG 1-Jan-88. 1:18am 

TEXTE 1-Jan-88 2 1:37anm 

————————————————öf() Of (ALI EC OL yes 


ChangeDir-C : \COBPGM———————  - Ins-Caps-Num-Scroll 
Fi=help F2=dir F3=chdir F9=drv 

t=up-name }=down-name 4-/=select-name Escape 

total size= 21,331,968 available space= 5,562,368 


Ausgewählt mit (change Directory) 


Zum Auflisten von weiteren Subdirectories positioniert man auf das Sub- 
directory und drückt auf die (Return )-Taste. 


In der zweiten Stufe kann der Benutzer die aufgelisteten Dateien nach Datei- 
namen oder Erstellungsdatum sortieren lassen, in den aufgelisteten Dateien 
mit [PgUp), und Cursortasten blättern und schließlich die hervorgeho- 
bene Datei mit der (Return)-Taste in einem Feld wählen. 


Name 


PGM15 
PGM16 
PGM17 
PGM18 
PGM19 
PGM28 
PGM21 
PGM22 
PGM23 
PGM24 
PGM25 
PGM26 
PGM27 
PGM28 
PGM29 
PGM3Q 
PGM31 
PGM32 


Date 


14-Mar-87 
16-Feb-87 
26-Feb-87 
8-Mar-87 
3-Mar-87 
22-Mar-87 
9-Mar-87 
11-Mar-87 
24-Feb-87 
4-Mar-87 
18-Mar-87 
5-Mar-87 
8-Mar-87 
10-Mar-87 
9-Mar-87 
22-Mar-87 
3-Mar-87 
5-Mar-87 


Directory-C:\COBPGM 


total size= 21,331,968 
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Time 


M—— Asc-Nane Ins-Caps-Nun-Scroll 
Fi=help F2=dir F3=chdir F4=del F5/F6=sort- nane/tine F?=unsort F8=asc/desc 
t=up-name 4=down-name 4-I/=select-name Escape F9=drv 


available space= 5,562,368 


Ausgewählt mit (F2) (directory) und anschließend sortiert mit (sort-name). 


Der Aufruf des Directory-Menüs 


Das Directory-Menü wird mit der Anweisung 


aufgerufen. 


CALL 


"S:NAME" USING 


Das Unterprogramm "S:NAME" benötigt die folgenden Parameter: 


FUNKTION 


PIC 9(02) COMP. 


DATEI-NAME PIC X(8). 
DATEI-ERWEITERUNG PIC X(3). 


Integration des systeminternen Directory-Menüs 


Funktion muß vor dem Aufruf auf 2 gesetzt werden. Dateiname hat beim 
Aufruf keine Bedeutung, das System liefert den mit der (Return)-Taste vom 
Directory-Menü ausgewählten Namen in diesem Feld. Wurde die (Return)- 
Taste benutzt, um einen Dateinamen zu wählen, so erhält Funktion nach der 
Ausführung den Wert 1. Dateierweiterung enthält den Dateityp, nach dem 
"S:NAME" suchen soll. 


Beispiel: 


MOVE 2 TO FUNKTION. 
MOVE "TXT” TO DATEI-ERN. 
CALL "S:NAME” USING FUNKTION DATEI-NAME DATEI-ERWEITERUNG. 


Die Implementierung 
Wird das Unterprogramm "S:NAME" in der Anwendung benötigt, so muß 
dieses auch mitgebunden werden. Binden Sie deshalb das Unterprogramm 


"NAME.GNT" aus der COBOL.LIB während der Bindephase mit BUILD in 
Ihre Anwendung. 


Siehe Programmbeispiel PGM32 
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7. Schnittstellen zu Assem- 
bler-Unterprogrammen 


Die genannten COBOL-Compiler von MIRCO FOCUS erlauben dem An- 
wender das Aufrufen eines externen Unterprogramms, welches nicht in 
COBOL geschrieben ist. Diese Möglichkeit ist besonders für den Zugriff auf 
Systemebene wertvoll. Damit steht dem Programmierer nichts mehr im 
Wege, mit COBOL rationell und dennoch alle denkbaren Routinen zu pro- 
grammieren. 
Dazu muß das externe Assembler-Unterprogramm so aufgebaut werden, daß 
es auf der Adresse 100H beginnt und im binären Format als .BIN-Datei liegt. 
Gehen Sie deshalb wie folgt vor, wenn das Assembler-Unterprogramm "BEI- 
SPIEL" zu erstellen ist: 
1) Erstellen des Assembler-Programms mit einem beliebigen Editor. 
2) Übersetzen: 

C>MASM BEISPIEL [4] 
3) Binden: 

C>LINK BEISPIEL [+] 
4) Umwandeln in .BIN-Datei 

C>EXE2BIN BEISPIEL [4] 
5) Aufrufin COBOL: 


CALL "BEISPIEL" USING ........ 
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(1) 


(2) 


(3) 


(4) 


Editor 


BEISPIEL.ASM 


MASM 


BEISPIEL.OBJ 


LINK 


BEISPIEL.EXE 


EXE2BIN 


BEISPIEL.BIN 


Schnittstellen zu Assembler-Unterprogrammen 


Der Aufbau eines Assembler-Unterprogramms 


Bei der Erstellung von Assembler-Unterprogrammen kann der Anwender 
bestimmen, ob dieses mit dem Programmnamen 


CALL "BEISPIEL" USING ........ 
oder mit einer Nummer 
CALL X"03" USING ........ 


aufgerufen werden soll. Die letzte Möglichkeit erlaubt die Definition mehre- 
rer Eingangsstellen im Unterprogramm (Subroutinen), die jeweils mit einer 
Nummer aufgerufen werden können. Ein solches Unterprogramm muß, wie 
bereits beschrieben, erstellt, jedoch als RTS.BIN umbenannt werden, z.B: 


C>REN BEISPIEL.BIN RTS.BIN [CO] 
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Parameterübergabe beim Aufruf mit Programmname 
(Stackaufbau) 


Die Register DS (data segment) und CS (code segment) haben beim Eingang 
ins Unterprogramm den gleichen Wert. IP (instruction pointer) verweist auf 
100H. 


Hierzu brauchen außer des Flag-Registers keine Register gesichert zu wer- 
den. 


SS (stack segment) verweist auf das RTS-Datensegment. 


SS:SP (stack segment:stack pointer) verweist auf die Rückkehradresse einer 
Far-Prozedur (also 32-Bit-Adresse). 


Die Parameteradressen werden als Segment:Offset von links nach rechts in 
den Stack geschrieben (32-Bits). 


CALL "ADDNAME" USING PARM-1 PARM-2 PARM-3 


Ö <--- SP 
P 
Return- 2 
adresse Cs 
4 
OFFSET 3. PARAM 
6 
SEGMENT 3. PARAM 
8 
OFFSET 2. PARAM 
10 
SEGMENT 2. PARAM 
12 
OFFSET 1. PARAM 
14 


SEGMENT 1. PARAM 


Höhere Adresse 


Stackaufbau nach dem Eingang ins Unterprogramm 


7-4 


Schnittstellen zu Assembler-Unterprogrammen 


Beispiel: 
Zugriff auf den ersten Parameter 
LES SI,DWORD PTR [BP+12] 


Hier wird der Segmentanteil des ersten Parameters in ES und der Offset in SI 
geladen. 


Die RTS.BIN-Datei 


Die RTS.BIN-Datei beginnt auf der Adresse 100H und enthält im ersten Byte 
die Anzahl der vorhandenen Subroutinen. Im darauffolgenden Wort (2 Bytes) 
ist die Adresse der ersten Subroutine (CALL X"01"), im nächsten Wort die 
Adresse der zweiten Routine (CALL X"02") vorhanden usw. 


SUBROUTINE 1 
SUBROUTINE 2 


Aufbau der RTS.BIN-Datei 
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Schnittstellen zu Assembler-Unterprogrammen 


Enthält das erste Byte der RTS.BIN-Datei z.B. 8, so müssen deswegen keine 
8 Subroutinen in der RTS.BIN-Datei vorhanden sein. In diesem Fall kann die 
Adresse der ungenutzten (fehlenden) Subroutinen auf Null gesetzt werden. 
Die Steuerung wird sofort an das COBOL-Programm zurückgegeben. Wird 
eine Subroutine, deren Nummer größer ist als der Inhalt des ersten Bytes, in 
der RTS.BIN aufgerufen, so tritt ein Fehler auf. 


Parameterübergabe an die RTS.BIN-Datei 
SS:SP (stack segment:stack pointer) verweist auf die Rückkehradresse einer 
Near-Prozedur (also 16-Bit-Adresse). 


Die Parameteradressen werden als Offset von links nach rechts in den Stack 
geschrieben (16-Bits). 


CALL "ADDNAME" USING PARM-1 PARM-2 PARM-3 


Ö <--- SP 
Return- { BP (alt) 
adresse 2 
4 
OFFSET 3. PARAM 
6 
OFFSET 2. PARAM 
8 
OFFSET 1. PARAM 


Höhere Adresse 


Stackaufbau nach dem Eingang ins Unterprogramm 
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Beispiel: 
Zugriff auf den ersten Parameter 


MOV BX, [BP+8] 


bzw. nachfolgendes Beispiel, wenn eine Struktur (STRUC) verwendet wird: 


PARMETER STRUC 


BP ALT DW ? 
RET_ADR DW ? 
PARM3 DW ? 
PARM2 DW ? 
PARMI DW ? 


PARMETER ENDS 


MOV BX, [BP].PARM! 
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8. Übergang in den Betriebs- 
systemmodus 


PROFESSIONAL COBOL erlaubt dem Benutzer den Übergang in den Be- 
triebssystemmodus 


DOS. 
Diese Möglichkeit gilt sowohl während das COBOL-System aktiv ist, als auch 
während der Ausführung solcher Anwendungen, die mit COBOL entwickelt 


worden sind. 


Drücken Sie dazu die folgenden Tastenkombination gleichzeitig: 


Scroll 
Ctrl + Lock 


Shift 


3 


Alt 
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Übergang in den Betriebssystemmodus 
Anschließend erscheint am Bildschirm die folgende Meldung: 


Type "EXIT" to resum COBOL 
C> 
Sie sind nun auf DOS-Ebene und können wie gewöhnlich DOS-Kommandos 


ausführen. Zur Wiederaktivierung der Anwendung bzw. des COBOL-Systems 
geben Sic ein: 


CEXIT [EO) 
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9. Demonstrations- 
programme 


In diesem Kapitel finden Sie 35 Programmbeispiele, die den erarbeiteten 
Stoff vertiefen sollten. 


Damit Sie sich in die Umgebung eines Programms besser versetzen können, 
wird zu jedem Programm ein Dialog-Testlauf beigefügt. Sie finden ıhn immer 
am Ende des Programms. 


Bei der Entwicklung dieser Programme wurde in erster Linie auf die Funk- 
tion, die durch das jeweilige Programm ausgeführt werden sollte, mehr Wert 
gelegt und nicht immer auf die "Programmierkunst". 


Alle Programme sind so aufgebaut, daß sie als Haupt- oder Unterprogramme 
aufgerufen werden können. 


Das letzte Programm PGM35 gilt als Master-Programm, von dem aus alle 
anderen Programme aufgerufen werden können. 


Es empfiehlt sich, zum Übersetzen der Programme eine Batchdatei mit fol- 
gendem Inhalt zu erstellen: 


COBOL CHECK PGMB1 
COBOL CHECK PGMD22 
COBOL CHECK PGMD3 


COBOL CHECK PGM33 
COBOL CHECK PGM34 
COBOL CHECK PGM35 
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PGM01: Senden und Verarbeiten einer Bildschirm- 
maske 


2800818 IDENTIFICATION DIVISION. 


0000828 PROGRAM-ID. PGMO1. 
200030 AUTHOR. R. HABIB. 
000840 DATE-WRITTEN. 81-81-1987. 


200858 DATE-COMPILED. B1-Apr-87 19:21. 


WRIITVELZ EEE 2227220202022 0202027272 202727272 02727272 27272727272 1202 1272722 7272727202272 2020272720202 702020212 70202 0272727278 
DODOT OHREN HEHE HERNE HERR RE 


DRDDEN** “x 
D00890** PROGRAMMFUNKTION: *%* 
DD DOx* “x 
BdHa110%** DAS PROGRAMM DEMONSTRIERT DIE ERSTELLUNG VON BILDSCHIRM- *% 
000120** MASKEN MIT DEM MASKENGENERATOR FORMS, DIE GENERIERUNG *% 


000130%*%* VON DATENSTRUKTUREN UND DEN UMGANG MIT DEREN DATENFELDERN x 
BBR140** SOWIE DAS SENDEN VON BILDSCHIRMATTRIBUTEN UND TEXTEN AM BILD-** 
BB0150** SCHIRM. IN DER BILDSCHIRMMASKE WIRD DIE MONATLICHE RATE NACH ** 
0080160%** DER EINGABE EINES HYPOTHEKENDARLEHENS, EINES ZINSSATZES UND **% 
B88170%%* EINER LAUFZEIT BERECHNET. *% 
IARTEZ *% 
VIELE ELDEE EEE 2 2 2 2 2 22 22 2 222 2 ses Ss 22 272720272 2 212 272 2727272 127272 2 2721272 12122 12121202122 21272027. 
WIIIATER EEE 28 2220272020272 2020272727222 727272727272 27275 2727272727272 727272720272 0272 727272727272 72 727202 027202727272 0212027: 
888218 ENVIRONMENT DIVISION. 

0008220 CONFIGURATION SECTION. 


0002308 SOURCE-COMPUTER. IBM-PC. 
808248 OBJECT-COMPUTER. IBM-PC. 
808258 SPECIAL-NAMES. 

200260 DECIMAL-POINT IS COMMA, 

200278 CONSOLE IS CRT. 


8.80 28 0:33 BB RRIRRIERBEIBEIRIIHTIOIBIBEIHIIHWIBBEIBIEIIIHHIHIGIEIEBIEIHIIHIBIHIEIIHIEN N 
0080298 DATA DIVISION. 

2080308 WORKING-STORAGE SECTION. 

808310 


80.9320: H 3 BREITET III RR RE 


200330* PARAMETER FÜR EIN/AUSGABE VON BILDSCHIRM-ATTRIBUTEN BZW. DATEN * 


800340 BRITEN RE 


080350 81 EIN-AUSGABE PIC X(1) VALUE X”B7”. 
200360 

B00370 81 SCHREIBEN-ZEICHEN PIC 9(2) COMP VALUE 1. 
00388 Bi SCHREIBEN-ATTR PIC 9(2) COMP VALUE 3. 
209390 

D0B40d B1 FORM-PARAMETER. 

Bod4ıdE 83 LAENGE PIC 9(4) COMP. 


000420 83 BILDSCHIRM-POS PIC 9(4) COMP. 
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000439 


83 PUFFER-POS 


PIC 9(4) COMP. 


Demonstrationsprogramme 


DD 4 4D EHRE EIEIEIEIEI II IIIIIEIEIEHEIEEE EHE HEHE EEE HAAR RR RE 


0004508 D1 DARLEHEN PIC 9(6)V99. 

BRBd460 di ZINSSATZ PIC 9(2)V9(3). 

000478 81 LAUFZEIT PIC 9(2). 

000480 

B00498 BI Qq PIC 9(1)VI(18). 

B00508 Di RATENZINSSATZ PIC 9(2)V9(18). 

8808518 81 ANZAHLRATEN PIC 9(3). 

200528 

00548 01 PGMO1-QO-ATTR. 

800558 83 FILLER PIC X(2000) VALUE ALL X”83”. 

800568 91 PGMO1-QH 

288570 03 PGMO1-DB-B101 PIC X(0056) VALUE " gem em 
200580- " ” 

200598 83 FILLER PIC X(8824). 

800680 d3 PGMA1-DR-B201 PIC X(BAR1) VALUE ”|”. 

B806 18 83 FILLER PIC X(8854). 

800620 03 PGMd1-88-0256 PIC X(BBd1) VALUE "|". 

00630 83 FILLER PIC X(8824). 

200640 B3 PGMO1-08-0381 PIC X(Q881) VALUE ”|”. 

200658 83 FILLER PIC X(8919). 

DDD668 B3 PGMd1-080-8321 PIC X(08015) VALUE "Ratenberechnung”. 
200678 83 FILLER PIC X(8828). 

000680 03 PGMO1-08-0356 PIC X(DAB1) VALUE "|". 

280698 83 FILLER PIC X(8824). 

200700 d3 PGMO1-DQA-8401 PIC X(BdB1) VALUE ”]”. 

200718 83 FILLER PIC X(8854). 

2800728 03 PGMO1-88-0456 PIC X(B801) VALUE "|". 

280730 83 FILLER PIC X(8824). 

200748 B3 PGMO1-88-0581 PIC X(0056) VALUE " |m—————————— 


BBDISOD-_ Do Nm—m— 0, 


200768 83 FILLER PIC X(8824). 

800778 03 PGMA1-D0-B6B1 PIC X(d8B1) VALUE "|". 
200788 23 FILLER PIC X(8054). 

200798 03 PGMd1-09-0656 PIC X(BR01) VALUE ”|”. 
200808 83 FILLER PIC X(8824). 

080810 03 PGMO1-BB-D791 PIC X(QB81) VALUE ”|”. 
200820 83 FILLER PIC X(8054). 

800838 B3 PGMO1-98-0756 PIC X(BB81) VALUE ”|”. 
2800849 83 FILLER PIC X(8824). 

2080859 03 PGMO1-Bd-8801 PIC X(0027) VALUE "| Hypothekendarlehen 
B00860- "2", 

200870 83 FILLER PIC X(8828). 

000889 03 PGMO1-8Q0-8856 PIC X(B801) VALUE ”|”. 
B00898 03 FILLER PIC X(0824). 

808908 03 PGMO1-D9-0901 PIC X(O801) VALUE ”|”. 
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BORI1D 
800929 
800930 
800949 
800950 
800968 
800970 
800988 
880998 
891009 
881819 
881020 
091038 
881048 
801050 
881068 
881078 
881080 
081099 
2891108 
BH1110 
B81128 
801138 
81148 
881158 
B91168 
291178 
091188 
881198 
881200 
881218 
081220 
881238 
881248 
091258 
881268 
891278 
001289 
0881298 
881308 
BB1310 
081328 
801330 
801340 
801358 
801368 
881378 
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83 
83 
83 
83 
03 
03 
83 
03 
83 
83 
83 
83 
03 
83 
83 
B3 
03 
83 
83 
03 
03 
B3 
83 
03 
83 
03 
03 
03 
03 
83 
83 
83 
83 
83 
03 
03 
03 
83 
83 
03 
83 
03 
03 
03 
03 
83 
83 


FILLER 
PGMd1-08-0956 
FILLER 
PGMd1-88-1001 
FILLER 
PGMd1-88-1823 
FILLER 
PGMd1-88-1056 
FILLER 
PGMBd1-88-1101 
FILLER 
PGMd1-98-1156 
FILLER 
PGMB1-89-1281 
FILLER 
PGMB1-88-1223 
FILLER 
PGMB1-88-1256 
FILLER 
PGMd1-88-1381 
FILLER 
PGMB1-88-1356 
FILLER 
PGMd1-88-1401 
FILLER 
PGMd1-08-1456 
FILLER 
PGMd1-08-1501 
FILLER 
PGMO1-88-1556 
FILLER 
PGMBI-B8-1691 
FILLER 
PGMd1-88-1656 
FILLER 
PGMd1-98-1781 
FILLER 
PGMd1-88-1727 
FILLER 
PGMd1-88-1741 
FILLER 
PGMBd1-88-1756 
FILLER 
PGMd1-08-1801 
FILLER 
PGMd1-B8-1856 
FILLER 


PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 


X(8854). 
X(8881) 
X(0024). 
X(8811) 
X(8811). 
X(8813) 
X(00828). 
X(0881) 
X(8824). 
X(8881) 
X(8854). 
X(8881) 
X(8024). 
X(0811) 
X(8811). 
X(8915) 
X(8B18). 
X(8881) 
X(8824). 
X(8891) 
X(8054). 
X(0881) 
X(0824). 
X(8881) 
X(0054). 
X(0881) 
X(8024). 
X(8891) 
x(8854). 
X(8881) 
X(0824). 
X(8881) 
X(8854). 
X(8881) 
X(8824). 
X(8813) 
X(8813). 
X(8881) 
X(8813). 
X(8882) 
X(8813). 
X(8881) 
X(0824). 
X(8881) 
X(80854). 
X(8801) 
X(8824). 


VALUE 


VALUE 


VALUE 


VALUE 


VALUE 


VALUE 


VALUE 


VALUE 


VALUE 


VALUE 


VALUE 


VALUE 


VALUE 


VALUE 


VALUE 


VALUE 


VALUE 


VALUE 


VALUE 


VALUE 


VALUE 


VALUE 


VALUE 


"I". 
"| Zinssatz”. 


"__--) [r 


"| Laufzeit”. 


"_---) 


"| Monatsrate”. 
DM”. 
"I". 
"I". 
"I". 


Jahre”. 
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001388 d3 PGMA1-88-1901 PIC X(B801) VALUE "|". 


881398 83 FILLER PIC X(8054). 
801480 83 PGMd1-8-1956 PIC X(BABd1) VALUE "|". 
881418 83 FILLER PIC X(8824). 


BBIa2 0 B3  PGMOI-BB-2B01 PIC X(8656) VALUE " ———nmunmn 
801430- Pa ———”. 


001440 03 FILLER PIC X(8824). 

001450 03 PGMB1-D8-2181 PIC X(Bd01) VALUE "|". 
091468 83 FILLER PIC X(8054). 

201470 03 PGMd1-80-2156 PIC X(BBd1) VALUE ”"|”. 
001480 93 FILLER PIC X(8824). 

001499 03 PGMd1-88-2201 PIC X(0824) VALUE "| Programmende (J/N)? 
981500- "N", 

881518 83 FILLER PIC X(8831). 

841529 03 PGMB1-88-2256 PIC X(BBd1) VALUE ”|”. 
001539 83 FILLER PIC X(8824). 

281540 83 PGMd1-08-2381 PIC X(D0d1) VALUE "|”. 
01558 03 FILLER PIC X(8854). 

001568 03 PGMO1-08-2356 PIC X(0081) VALUE "|". 
081578 03 FILLER PIC X(8824). 

001588 03 PGMO1-08-2481 PIC X(8801) VALUE "|”. 
891598 03 FILLER PIC X(8854). 

081608 03 PGMB1-D9-2456 PIC X(DRD1) VALUE "|”. 
001618 03 FILLER PIC X(8824). 

B801620 03 PGMB1-08-2501 PIC X(0056) VALUE " Km 
001630- Pl 
001640 03 FILLER PIC X(9824). 

81650 91 PGMB1-81 REDEF INES PGMB1-DD 
801669 83 FILLER PIC X(8588). 

801678 83 PGMB1I-B1-8829 PIC Z2Z.2ZZ,ZZ. 

001689 83 FILLER PIC X(9158). 

001698 03 PGMd1-81-1829 PIC ZZ,ZZZ. 

081708 03 FILLER PIC X(9154). 

BH1710 83 PGMB1-81-1229 PIC ZZ. 

081729 03 FILLER PIC X(8398). 

801738 03 PGMO1-81-1729 PIC ZZZ.ZZZ,ZZ. 

801748 03 FILLER PIC X(8385). 


801758 03 PGMB1-91-2224 PIC X(B801). 
TERNITELEEEEEETEETET PETE TELTEITELTUEEEERTESEESODERSEREUDEREEEEUEE 
801778 PROCEDURE DIVISION. 

801780 PROGRAMM-STEUERUNG SECTION. 

801798 PR-1080. 


B81888 PERFORM VORLAUF. 

81810 PERFORM VERARBEITUNG UNTIL PGMB1-01-2224 = "3" OR ”j". 
801828 PR-9999. 

081830 EXIT PROGRAM. 

001848 STOP RUN. 
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DOIESDRR RR RUE EEE IE HEIKE KR RR 


BB1860 VORLAUF SECTION. 
BB18708 VOR-1BBL. 


201880 
281898 
881908 
BA1918 


DISPLAY SPACE UPON CRT. 

MOVE 2008 TO LAENGE. 

MOVE 1 TO BILDSCHIRM-POS. 
MOVE 1 TO PUFFER-POS. 


081928 VOR-9999. 


881930 


EXIT. 


DD 1 IDEE TIERE EEE HUREN R 


881950 VERARBEITUNG SECTION. 
DO1I60 VER-1000. 


DO1ITO** 


801988 
01998 
002088 


002010%** 


202020 
002038 
202040 


DD2050%*% 


802068 
802078 
002089 
002090 
802100 
882110 
002128 
082130 
002140 
0802150 
002160 
802178 
002188 
202198 


002200%*% 


002218 
002228 


ATTRIBUTE SCHREIBEN 
CALL EIN-AUSGABE USING SCHREIBEN-ATTR FORM-PARAMETER 
PGMd1-BOQ-ATTR. 


TEXT SCHREIBEN 
CALL EIN-AUSGABE USING SCHREIBEN-ZEICHEN FORM-PARAMETER 
PGMO1-BB. 


VARIABLEN EINGEBEN 
ACCEPT PGMd1-81 FROM CRT. 
IF PGMO1-81-2224 = "J” OR "j” GO TO VER-9999. 


MOVE PGM®1-81-08829 TO DARLEHEN. 
MOVE PGMd1-81-1829 TO ZINSSATZ. 
MOVE PGMd1-81-1229 TO LAUFZEIT. 


COMPUTE RATENZINSSATZ = ZINSSATZ / 12. 
COMPUTE Q ROUNDED = 1 + RATENZINSSATZ / 188. 
COMPUTE ANZAHLRATEN = LAUFZEIT * 12. 
COMPUTE PGMB1-81-1729 ROUNDED = 

(DARLEHEN * ( Q %** ANZAHLRATEN) 

* (Q- 1)) 7/ (Q ** ANZAHLRATEN - 1). 


TEXT SCHREIBEN 
CALL EIN-AUSGABE USING SCHREIBEN-ZEICHEN FORM-PARAMETER 
PGMO1-B8. 


002230 VER-9999. 


002240 
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EXIT. 
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Ratenberechnung 


Hypothekendarlehen ----> 


Zinssatz ---- IRRNYGZ 


Laufzeit ----> BQ Jahre 


Monatsrate = IEmWArEEE DM 


Programmende (J/N)? N 


Dialog-Testlauf (PGM01) 
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PGM02: Ausführen von DOS-Kommandos aus dem 
Programm 


280018 IDENTIFICATION DIVISION. 


288028 PROGRAM-ID. PGMB2. 
2080030 AUTHOR. R. HABIB. 
0080048 DATE-WRITTEN. 81-81-1987. 


280850 DATE-COMPILED. B1-Apr-87 19:21. 


WEIITEELEEEE 22202 202027272212 7272 720202727272 02 12727 2727272727272 0212272720272 12 202.202 2721202020202 1202021220202 12.202027 
WILTHIEELEEEE E22 2 2020272080212 72 7272027272 202 121272720212 72 7272020272722 272 72,2 02027272 202727020202 02202 022,202 02202020275 


BRDDEd*« *% 
B80090%** PROGRAMMFUNKTION: *% 
BDd1 dx * *% 
BRA118** MIT DIESEM PROGRAMM KÖNNEN SIE EIN BELIEBIGES DOS-KOMMANDO *% 
BBD120** AUS IHREM COBOL-PROGRAMM AUSFÜHREN. *% 
BRD130%** *% 


VETRLTEEE SE 20202020272 0202027272 1202702727202 72 727272727272 12 7127212 2727212 02727272 2727272272722 12720272722 0272 702721272 2021212727 
VEIRETELDEE GE E22 2 2 2 2 2 202 2 2 2 2 2 2 2 202 2 2 2 2 2 2727272720212 202 212020272 27272 2 272 272 2021227212 72.2.2.272.2/2, 
000160 ENVIRONMENT DIVISION. 

000178 CONFIGURATION SECTION. 

BRK18Q SOURCE-COMPUTER. IBM-PC. 

B00198 OBJECT-COMPUTER. IBM-PC. 

000200 SPECIAL-NAMES. 

080210 DECIMAL-POINT IS COMMA, 

000228 CONSOLE IS CRT. 

200230 INPUT-OUTPUT SECTION. 

888248 FILE-CONTROL. 

200 25 W:O EIER EIERN EHI NE RE 
0002608 DATA DIVISION. 

200270 

Ö00280 WORKING-STORAGE SECTION. 


0029 PH BEI IBEIIBIEIEEIIIEIEIEIIEIE III III IE EEE EICHE HEINE IE HR RR 


000300%* PARAMETER FÜR EIN/AUSGABE VON BILDSCHIRM-ATTRIBUTEN BZW. DATEN * 


D003 1 Dr EINEN EEE EEE TRUTH 


000328 01 EIN-AUSGABE PIC X(1) VALUE X”B7”. 
000330 

000348 81 SCHREIBEN-ZEICHEN PIC 9(2) COMP VALUE 1. 
288358 Bi SCHREIBEN-ATTR PIC 9(2) COMP VALUE 3. 
000368 

000378 081 FORM-PARAMETER. 

800388 03 LAENGE PIC 9(4) COMP. 

200398 03 BILDSCHIRM-POS PIC 9(4) COMP. 

000400 83 PUFFER-POS PIC 9(4) COMP. 


VEIESTELDEE SEES 2227202 2727272721202 72 02 127272 272 271272727272 727272720272 7272727272 720272720202 7202 027202727202 02 7272727272727 


0004208 Bi TASTEN-PROGRAMMIERUNG PIC 99 COMP VALUE 8. 
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0080430 
D00440 


D00450% 


000469 


D00470% 


200480 


D800490* 


800500 


91 
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TASTEN-TABELLE. 
03 TASTEN-NR 
FUNKTIONSTASTE Fi =1 
83 FILLER PIC X(03) VALUE X”82003B”. 
DIE TASTEN: ESC=2 

083 FILLER PIC X(2) VALUE X”d11B”. 
ENDE-KENNZEICHEN 
83 FILLER PIC X 


PIC 99 COMP. 


VALUE X”Oß”. 


8085 1 PH BREITE HET EITHER EEE HIER RE 


200520 
008539 
000548 
200559 
000560 
800578 
200580 
200590 
200609 
200619 
200628 
200630 


91 


B1 


1 
81 


1 


01 


VERSCHIEDENES PICX VALUE X”91”. 
ERGEBNIS PIC 99 COMP. 
FUNKTION-2 PIC 99 COMP VALUE 2. 


FUNKTION-35 PIC 99 COMP VALUE 35. 


PARAMETER. 
05 KOMMANDOLAENGE PIC 99 COMP. 
085 KOMMANDO PIC X(78). 


WERT-ß PIC 99 COMP VALUE 8. 


DD 64 U BREITET NIIT III IENEIEIIEIEIETIEHE RER EIER EIER URN 


200668 
200678 
000680 
800690 
200788 
0880718 
200728 
200730 
000748 
208758 
200768 
2800778 


200788- 


000798 
208808 
B08818 
200828 
200839 
200848 
800850 
2800860 
800878 


BoB880- 


D008 98 
200908 


1 


B1 


PGMd2-OB-ATTR. 


83 FILLER PIC X(8181) VALUE ALL X”03”. 

83 FILLER PIC X(0038) VALUE ALL X”31”. 

03 FILLER PIC X(8058) VALUE ALL X”03”. 

83 FILLER PIC X(8838) VALUE ALL X”31”. 

83 FILLER PIC X(80858) VALUE ALL X”03”. 

3 FILLER PIC X(0838) VALUE ALL X”31”. 

03 FILLER PIC X(8837) VALUE ALL X”03”. 

83 FILLER PIC X(80878) VALUE ALL X”13”. 

83 FILLER PIC X(8722) VALUE ALL X”83”. 
PGMd2-88 

03 PGMd2-BQ-D181 PIC X(D08d) VALUE " gm 

03 PGMd2-88-0281 PIC X(B801) VALUE ”|”. 

d3 FILLER PIC X(8878). 

03 PGMd2-B0-8280 PIC X(B801) VALUE "I". 

03 PGMd2-D0-8301 PIC X(Dd01) VALUE "|". 

83 FILLER PIC X(8878). 

83 PGMB2-D8-0388 PIC X(B881) VALUE ”|”. 

03 PGMB2-08-0401 PIC X(B8d1) VALUE "|". 

Ö3 FILLER PIC X(8822). 

03 PGMd2-B8-0424 PIC X(0827) VALUE "Ausführen von DOS-Komnm 

"andos”. 

83 FILLER PIC X(8829). 

83 PGMO2-08-0480 PIC X(BBN1) VALUE ”|”. 
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2800918 
800928 
800938 
800940 
800958 
200968 
280978 
000988 
800998 
281008 
801810 
201020 
81030 
081040 
881950 
01868 
821070 
801080 
881090 
D81108 
a1 118 
881128 
881138 
BD1149 
881150 
BD1168- 
881179 
281189 
2891190 
8081288 
B81219 
091220 
801230 
001240 
081258 
01260 
881278 
881289 
881290 
881300 
B81310 
801328 
801338 
801340 
801358- 
801360 
801378- 
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PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 


PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 


X(8801) 


X(8078). 


X(8891) 
X(8881) 


X(8878). 


X(00881) 
X(0081) 


X(0078). 


X(8901) 
X(8001) 


X(0078). 


X(8891) 
X(8801) 


X(8078). 


X(8891) 
X(8881) 


X(8078). 


X(0801) 
X(0001) 


X(8078). 


X(8881) 
X(0881) 


X(0078). 


X(88891) 
X(8834) 


X(8845). 


X(8881) 
X(8881) 


X(8078). 


X(8881) 
X(8801) 


X(8078). 


X(8891) 
X(8087) 


X(86872). 


X(8881) 
X(8881) 


X(0878). 


X(8801) 
X(8881) 


X(0878). 


X(00801) 
X(8080) 


VALUE 


VALUE 
VALUE 


VALUE 
VALUE 


VALUE 
VALUE 


VALUE 
VALUE 


VALUE 
VALUE 


VALUE 
VALUE 


VALUE 
VALUE 


VALUE 


VALUE 


VALUE 


VALUE 


VALUE 
VALUE 


VALUE 
VALUE 


VALUE 
VALUE 


VALUE 
VALUE 


VALUE 
VALUE 


"| Geben Sie das DOS-K 


PGMB2-00-2881 PIC X(0033) VALUE "| Fi = Ausführen 


03 PGMd2-808-8591 
83 FILLER 

03 PGMd2-88-8588 
03 PGMd2-88-06891 
03 FILLER 

03 PGMd2-B0-0680 
83 PGMd2-808-0781 
03 FILLER 

03 PGMd2-80-0780 
83 PGMd2-8d-H801 
83 FILLER 

d3 PGMd2-D8-0880 
03 PGMd2-88-9901 
83 FILLER 

03 PGMd2-00-8980 
03 PGMd2-B08-1881 
83 FILLER 

03 PGMd2-B8-1080 
83 PGMd2-88-1191 
83 FILLER 

Ö3 PGMd2-88-1189 
83 PGMd2-09-1291 
83 FILLER 

03 PGMd2-08-1280 
83 PGMd2-98-1301 
"ommando ein:”. 

83 FILLER 

03 PGMd2-80-1380 
83 PGMB2-08-1481 
83 FILLER 

03 PGMd2-88-1480 
d3 PGMA2-88-1591 
83 FILLER 

83 PGMd2-08-1580 
83 PGMd2-88-1601 
83 FILLER 

03 PGMd2-08-1680 
83 PGMd2-88-1781 
83 FILLER 

03 PGMA2-D8-1780 
d3 PGMd2-88-1801 
83 FILLER 

83 PGMA2-Q8-1880 
83 PGMA2-88-1901 
03 

” Esc = Ende”. 
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001389 83 FILLER PIC X(8846). 

801398 B3 PGMB2-DB-2880 PIC X(BRBd1) VALUE "|". 

001408 B3 PGMd2-B8-2101 PIC X(D080) VALUE *' Im 
D814180- ee ———", 
001428 91 PGMB2-91 REDEF INES PGMd2-09 

001438 83 FILLER PIC X(1288). 

001440 83 PGMd2-Q1-1609 PIC X(8878). 


(IRRE EEE EEE 2220202 2727272020202 0202 02027027027272 7272727272712 7272727272122 2022020202202 020202 27212 02127202.2,202.2.272 02027. 


0801468 PROCEDURE DIVISION. 
201470 PROGRAMM-STEUERUNG SECTION. 
D01480 PR-1008. 


201498 
281508 


PERFORM VORLAUF. 
PERFORM VERARBEITUNG UNTIL TASTEN-NR = 2. 


BHI518 PR-9999. 


881528 
881538 


EXIT PROGRAM. 
STOP RUN. 


VIRELTV.EZZE SEE 2 2 22 2 202 220222 22 2 2 2 2 202 727272727272 72727272 12 127272727272 7272721227272 272 7272212727202 7272721272727 


001558 VORLAUF SECTION. 
B81568 VOR-12D0. 


281578 
201589 
081598 
201608 


CALL X”Bß” USING TASTEN-PROGRAMMIERUNG TASTEN-TABELLE. 


MOVE 1680 TO LAENGE. 
MOVE 1 TO BILDSCHIRM-POS PUFFER-POS. 


BB1610 VOR-9999. 


881628 


EXIT. 


0163: HHBRBBBBEIEEEIEIIEIEIBIIIIIIIGIIIBIHIBIEIHIHIEIEIBIIBIBIHIHBIIBIBIIHHIBIEIHIHHITIHIHICH RK 


0081640 VERARBEITUNG SECTION. 
801650 VER-1088. 


001668 
201678 


DO1680%*%* 


081690 
091708 


BD1710%*% 


0891728 
081730 
801748 
281758 
001768 
281778 
281788 
881798 
001808 
BO1818 
001828 
001838 
001849 


DISPLAY SPACE UPON CRT. 


ATTRIBUTE SCHREIBEN 

CALL EIN-AUSGABE USING SCHREIBEN-ATTR FORM-PARAMETER 
PGMd2-Öß-ATTR. 

TEXT SCHREIBEN 

CALL EIN-AUSGABE USING SCHREIBEN-ZEICHEN FORM-PARAMETER 
PGMd2-B0. 


ACCEPT PGMQ2-B1 FROM CRT. 
MOVE PGMB2-B1-1689 TO KOMMANDO. 
MOVE 78 TO KOMMANDOLAENGE. 


IF TASTEN-NR = 1 
CALL VERSCHIEDENES USING 
ERGEBNIS FUNKTION-2 PARAMETER 
CALL VERSCHIEDENES USING 
ERGEBNIS FUNKTION-35 WERT- 
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801850 MOVE PAUSE” TO KOMMANDO 

01860 

891879 CALL VERSCHIEDENES USING 

01880 ERGEBNIS FUNKTION-2 PARAMETER 
081898 CALL VERSCHIEDENES USING 

01908 ERGEBNIS FUNKTION-35 WERT-B. 


BB1910 VER-9999. 
801920 EXIT. 


Ausführen von DOS-Kommandos 


Geben Sie das DOS-Kommando ein: 


_ — 
Fi = Ausführen Esc = Ende 


Dialog-Testlauf (PGM02) 
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PGM03: Prüfen, ob eine Datei existiert 


B08818 IDENTIFICATION DIVISION. 


200028 PROGRAM-ID. PGMB3. 
B08030 AUTHOR. R. HABIB. 
008048 DATE-WRITTEN. 81-81-1987. 


B00050 DATE-COMPILED. B1-Apr-87 19:22. 


DDOD 6 x a ra EEE EHE IEHEIENEIE EICHE TEE IEIEIEIEIEEIEEIEE EEE EIERN R RE 
BDO dB 71 333 ÜBRIGE TEICHE EIER II EEE IE IE RK RER 


WELLET LE Rx 
B00090** PROGRAMMFUNKTION: *r 
DOD1BO“« x% 
BOBI1D** DIESES PROGRAMM PRÜFT, OB DIE ANGEGEBENE DATEI VORHANDEN IST.*%* 
DOH120*% xx 


VIIBBILLEES EEE 22 202 2020202727272 727272 270270202 21272 727272727272 7272 722 21212127212 727202 2020272 12.2020202 027272202022 0272705 
VIIBENVEEESEE E22 2 2 2202022722 2 2 22 2 2 22727272 72727272 7272 7202121272 12727272,27272 0227212722722 0202722020202 7202 127275 
880150 ENVIRONMENT DIVISION. 

Bdd160 CONFIGURATION SECTION. 

BRD1?7B SOURCE-COMPUTER. IBM-PC. 

Bduı8d OBJECT-COMPUTER. IBM-PC. 

088190 SPECIAL-NAMES. 

280208 DECIMAL-POINT IS COMMA, 

880219 CONSOLE IS CRT. 

208228 INPUT-OUTPUT SECTION. 

008238 FILE-CONTROL. 

VELYITLLEE SEES 2222 27272020202 02020272 2721272727272 7272727272722 72727272 202 1202727027272 2727272727272 2212 272212121212 727. 
2088258 DATA DIVISION. 

0808268 

200278 WORKING-STORAGE SECTION. 

200280 

2002908 81 ENDE-MELDUNG PIC X(15) VALUE 

200308 "Ende (J/N) ===)", 

289319 

888328 Bi ENDE-KENNZEICHEN PICX VALUE SPACE. 

0003308 88 ENDE VALUE "J” "5". 


800 3433ER III IIIEIIIIGIIOIIIIIBIEIGHIEIHIEIBIIEI III II HIHI IE HE 


0080350* PARAMETER FÜR EIN/AUSGABE VON BILDSCHIRM-ATTRIBUTEN BZW. DATEN * 


VELBITELEES ES 202727202 0272 7272727027212 72 72 272 127272727272 7272722727222 7575 2722272727202 72 027272 0272020202202 72 072020202727 


2008378 Bi EIN-AUSGABE PIC X(1) VALUE X”B7”. 
200389 

000398 81 SCHREIBEN-ZEICHEN PIC 9(2) COMP VALUE 1. 
288408 Di SCHREIBEN-ATTR PIC 9(2) COMP VALUE 3. 
088418 

088420 81 FORM-PARAMETER. 

000430 03 LAENGE PIC 9(4) COMP. 
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000440 83 BILDSCHIRM-POS PIC 9(4) COMP. 


000450 83 PUFFER-POS PIC 9(4) COMP. 

80046 0:3 8333 BB BBBRRBERRRRBEBBEIGBBBBEIRIBBIBIEGBBBBEEGBBBBEBEGEBBIBBEEGRIEISEN 
BBB478 Bi ERGEBNIS PIC 9(82) COMP. 

BRd48d Bi FUNKTION PIC 9(82) COMP. 


200498 Di PARAM-X91-15. 
200508 05 X91-LAENGE PIC 99 COMP. 
888510 085 DATEI-NAME PIC X(14). 


000520 
000538 O1 ZEIGER PIC 9(82). 

800548 

80568 Di PGMO3-BB-ATTR. 

BBe5T 8 83 FILLER PIC X(8181) VALUE ALL X"03”. 

Bo05e8 83 FILLER PIC X(0029) VALUE ALL X”31”. 

B006598 83 FILLER PIC X(8051) VALUE ALL X”Q3”. 

BOOGee B3 FILLER PIC X(8829) VALUE ALL X"31". 

Boa6ıd 83 FILLER PIC X(8851) VALUE ALL X”03”. 

Bod628 83 FILLER PIC X(8029) VALUE ALL X”31”. 

BO0d63d 83 FILLER PIC X(8135) VALUE ALL X”83”. 

BO0648 83 FILLER PIC X(B814) VALUE ALL X”13”. 

Bod65d8 3 FILLER PIC X(1481) VALUE ALL X”83". 

BDR66B 91 PGMO3-00 

BBa6TE 3 PCMO3-BB-DIBN PIC X(DO8B) VALUE "m— 
BODEBD- — Mm n 
BOa6ıE E35 PCMA3-DB-B2D1 PIC X(BBB1) VALUE "|". 

BOaTee 83 FILLER PIC X(8878). 


889710 03 PGMO3-D8-D280 PIC X(BdB1) VALUE "|". 
0800720 03 PGMO3-08-8301 PIC X(BB01) VALUE ”|”. 
2800730 83 FILLER PIC X(8078). 

200748 83 PGMB3-00-0388 PIC X(Bddt) VALUE "|". 
200758 03 PGMO3-B8-8491 PIC X(B801) VALUE "|". 


800768 83 FILLER PIC X(8822). 

200778 B3 PGMA3-89-0424 PIC X(0826) VALUE "Prüfen, ob Datei exist 
DDDd78R- "jert”. 

800798 83 FILLER PIC X(8038). 


200800 03 PGMO3-08-0480 PIC X(0B81) VALUE "|". 
BRd81d D3 PGMO3-88-0501 PIC X(Q881) VALUE "|". 
200829 83 FILLER PIC X(0878). 

B0B838 03 PGMO3-D8-0580 PIC X(B801) VALUE "|”. 
000849 83 PGMO3-D8-D601 PIC X(BdD1) VALUE "|". 
000850 83 FILLER PIC X(8978). 

200869 03 PGMO3-28-0680 PIC X(BOB1) VALUE "|". 
200879 03 PGMd3-DOD-B701 PIC X(0824) VALUE "| Dateinane -- 
Bndsed- "2", 

0800890 83 FILLER PIC X(8855). 

200988 03 PGMO3-D8-0788 PIC X(BB81) VALUE "|". 
808918 03 PGMA3-DB-Q801 PIC X(BBB1) VALUE "|". 
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200928 
2800938 
800948 
200958 
808968 
280978 
200988 
B80998 
801008 
B81018 
801029 
881030 
D81040 
201050 
281069 
801078 
201088 
281098 
201100 
DR1118 
801120 
201138 
B881140 
BB1158 
0891168 
281178 
091180 
Bd1198 
891200 
0881218 
001220 
081238 
001240 
801258 
801268 
801278 
091280 
091298 
201308 
BB1318- 
081328 01 
8813308 
001340 


VALUE 
VALUE 


VALUE 
VALUE 


VALUE 
VALUE 


VALUE 
VALUE 


VALUE 
VALUE 


VALUE 
VALUE 


VALUE 
VALUE 


VALUE 
VALUE 


VALUE 
VALUE 


VALUE 
VALUE 


VALUE 
VALUE 


VALUE 
VALUE 


VALUE 
VALUE 
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|} | , 
PGMd3-00 


83 FILLER PIC X(8978). 
83 PGMO3-BB-B880 PIC X(0801) 
03 PGMO3-B8-0981 PIC X(8001) 
83 FILLER PIC X(8078). 
03 PGMÖ3-88-0988 PIC X(8801) 
D3 PGMd3-Bd-1881 PIC X(8801) 
83 FILLER PIC X(8978). 
03 PGMO3-BB-1888 PIC X(8881) 
03 PGMO3-B8-1181 PIC X(8881) 
83 FILLER PIC X(8078). 
03 PGMO3-BQ-1188 PIC X(0801) 
03 PGMd3-88-1281 PIC X(8881) 
83 FILLER PIC X(B078). 
D3 PGMO3-09-1288 PIC X(8001) 
03 PGMB3-88-1381 PIC X(8891) 
83 FILLER PIC X(8878). 
03 PGMO3-00-13808 PIC X(88891) 
D3 PGMB3-08-1481 PIC X(8801) 
83 FILLER PIC X(08978). 
B3 PGMB3-08-1488 PIC X(8881) 
B3 PGMO3-89-1581 PIC X(B801) 
83 FILLER PIC X(8878). 
03 PGMO3-88-1588 PIC X(8881) 
D3 PGMO3-88-1601 PIC X(B881) 
83 FILLER PIC X(8078). 
03 PGMÖ3-08-1688 PIC X(8891) 
83 PGMBO3-88-1781 PIC X(8891) 
83 FILLER PIC X(8078). 
03 PGMO3-08-1788 PIC X(8801) 
03 PGMO3-88-1881 PIC X(8881) 
03 FILLER PIC X(8878). 
03 PGMd3-B88-1888 PIC X(8801) 
83 PGMB3-88-1981 PIC X(8881) 
83 FILLER PIC X(8978). 
03 PGMO3-BB-1988 PIC X(B0B1) 
03 PGMd3-08-2891 PIC X(8801) 
83 FILLER PIC X(0878). 
03 PGMO3-88-2088 PIC X(8881) 
B3 PGMÖ3-08-2181 PIC X(0089) 
PGMB3-81 REDEFINES 
83 FILLER PIC X(8585). 
03 PGMd3-01-0726 PIC X(8814). 


WEBLIELELLEFERSSEEEITEFETEEEEIPIIEPEEPEIERESUERT EIER TEODOEE DE EEE EEE 
081368 PROCEDURE DIVISION. 
881370 PROGRAMM-STEUERUNG SECTION. 
B01380 PR-1088. 
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881398 


PERFORM VERARBEITUNG UNTIL ENDE. 


081408 PR-9999. 


BB1410 
001420 


891 43 VEREINE THUN RR RR RR RER 


EXIT PROGRAM. 
STOP RUN. 


881440 VERARBEITUNG SECTION. 
891450 VER-1000. 


001468 
801478 
001489 


DO1490** 


881500 
881510 
801529 
881530 
801540 


BO1550** 


D01568 
801570 
001589 


DO1590** 


001608 
881618 
2801620 
881630 
001640 
001659 
001669 
801678 
001680 
091698 
291789 
281718 
801728 
881730 
081748 
891758 
891768 
891778 
091780 
291798 
B01880 
Ba1819 


DISPLAY SPACE UPON CRT. 


ATTRIBUTE SCHREIBEN 

MOVE 1688 TO LAENGE. 

MOVE 1 TO BILDSCHIRM-POS PUFFER-POS. 

CALL EIN-AUSGABE USING SCHREIBEN-ATTR FORM-PARAMETER 
PGMO3-BB-ATTR. 


TEXT SCHREIBEN 
CALL EIN-AUSGABE USING SCHREIBEN-ZEICHEN FORM-PARAMETER 
PGMd3-0B. 


VARIABLEN EINGEBEN 
ACGEPT PGMB3-B1 FROM CRT. 


MOVE SPACE TO DATEI-NAME. 
MOVE 1 TO ZEIGER. 


STRING PGMd3-01-0726 DELIMITED BY SPACE 
INTO DATEI-NAME 
WITH POINTER ZEIGER. 


SUBTRACT 1 FROM ZEIGER. 
MOVE ZEIGER TO X91-LAENGE. 
MOVE 15 TO FUNKTION. 


CALL X”91” USING ERGEBNIS FUNKTION PARAM-X91-15. 


IF ERGEBNIS = 8 
DISPLAY "DATEI EXISTIERT” AT 2591 
ELSE 
DISPLAY "DATEI EXISTIERT NICHT” AT 2501. 


DISPLAY ENDE-MELDUNG AT 2401. 
ACCEPT ENDE-KENNZEICHEN AT 2416. 


B81820 VER-9999. 


081830 
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EXIT. 
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Prufen, ob Datei existiert 


Dateiname 


Ende (J/N) === 
DATEI EXISTIERT 


Dialog-Testlauf (PGM03) 
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PGM04: Wechseln des aktuellen Directory 


ÖB8018 IDENTIFICATION DIVISION. 


000028 PROGRAM-ID. PGMB4. 
000038 AUTHOR. R. HABIB. 
000048 DATE-WRITTEN. 81-81-1987. 


200858 DATE-COMPILED. B1-Apr-87 19:22. 


WILDIVELEEZESS SE 202020202 202 202 2027272020272 0202720272 712712727272 21272 272127272 2 2020202 72.2.202 272020222202 0272 72.2.27 
WITH ELEE EEE E22 2027202020272 72 0202 7271272727202 727202727272 72 2727272727272 72720202727 20202720202 727202 2022702020272 2020272027 


WET xx 
B00890** PROGRAMMFUNKTION: ”% 
DDR OD * *% 
BOB119** MIT DIESEM PROGRAMM KÖNNEN SIE WÄHREND DER AUSFÜHRUNG EINER ** 
BBB120** ANWENDUNG DAS AKTUELLE DIRECTORY WECHSELN. “x 
DBOO130** *% 


VEIBETEELEREETFERTETTTELTOREIEERES TEUER ELERUESTEEL EEE EEDDE EEE EEE ee 
0015 0:33 B BOB SSBBBRRRBBEBRBBBBEBBREBBBIBEBBBRRBBESEBBIBBREBEREER ER 
888160 ENVIRONMENT DIVISION. 

BBB17B CONFIGURATION SECTION. 

BRH18BB SOURCE-COMPUTER. IBM-PC. 

BDOD19B8 OBJECT-COMPUTER. IBM-PC. 

000208 SPECIAL-NAMES. 

280210 DECIMAL-POINT IS COMMA, 

288220 CONSOLE IS CRT. 

8002308 INPUT-OUTPUT SECTION. 

080248 FILE-CONTROL. 


WAT LEE EEE 22 22 22020202 2727202020272 127272 7027027272 7278720272272 7272727272202 7212727020272 2 2721272202 2727272272722 2727 


200260 DATA DIVISION. 


080270 

000288 WORKING-STORAGE SECTION. 

200298 

BR0300 Bi ENDE-MELDUNG PIC X(15) VALUE 
808318 "Ende (J/N) ===>", 

200320 

0808330 01 ENDE-KENNZEICHEN PICX VALUE SPACE. 
000340 88 ENDE VALUE "I" "5". 


DOD3ZSORRUR RR URRRUREEIEI I III HEINE EEE HEHE HEHE III KR RE 


000360* PARAMETER FÜR EIN/AUSGABE VON BILDSCHIRM-ATTRIBUTEN BZW. DATEN * 


80037 0333 IIIIIIIIIIIIIIIIIIIEIIIEIEII III N 


Bnd380 Di EIN-AUSGABE PIC X(1) VALUE X”B7”. 
800390 

D0DdABO 81 SCHREIBEN-ZEICHEN PIC 9(2) COMP VALUE 1. 
BOd41B Di SCHREIBEN-ATTR PIC 9(2) COMP VALUE 3. 
0800420 


0800430 81 FORM-PARAMETER. 
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200440 03 LAENGE PIC 9(4) COMP. 
200458 83 BILDSCHIRM-POS PIC 9(4) COMP. 
200460 83 PUFFER-POS PIC 9(4) COMP. 


DOT OHREN HEHE NEUERE RER RER 


DOd48d Mi PARAM-X91-8. 


000490 85 X91-LAENGE PIC 99 COMP. 

2928509 85 VERZEICHNIS PIC X(38). 
IDIERLELERLELESSETEE EIER EUER EERDEE ERTEILT EEED EEE NT EST 
005208 81 ZEIGER PIC 9(82). 

080530 

000548 01 ERGEBNIS PIC 9(82) COMP. 

02005508 81 FUNKTION PIC 9(82) COMP. 


20.056 DH BIEIEIIIEEIEIEIEIIIIEIEREIIIOIIIIIIHIIEIEIEIIIGIOEIEEIER EITHER RE 


200580 91 PGMd4-BB-ATTR. 


200590 83 FILLER PIC X(8182) VALUE ALL X”03”. 
200680 83 FILLER PIC X(8826) VALUE ALL X”31”. 
800619 83 FILLER PIC X(8054) VALUE ALL X”083”. 
000620 83 FILLER PIC X(8826) VALUE ALL X”31”. 
200638 83 FILLER PIC X(8054) VALUE ALL X”03”. 
200649 83 FILLER PIC X(88026) VALUE ALL X”31”. 
0800658 083 FILLER PIC X(8217) VALUE ALL X”03”. 
000660 03 FILLER PIC X(8882) VALUE ALL X”13”. 
800678 83 FILLER PIC X(8158) VALUE ALL X”03”. 
200689 83 FILLER PIC X(@040) VALUE ALL X”13”. 
800698 83 FILLER PIC X(1215) VALUE ALL X”03”. 


800788 91 PCMd4-Dd . 
800718 03 PGMO4-D8-B101 PIC X(0080) VALUE gm 


809728- EEE | ” 
0800738 B3 PGMO4-D8-8201 PIC X(8081) VALUE "|". 
200748 83 FILLER PIC X(8878). 


800758 03 PGMd4-D0-8288 PIC X(BAd1) VALUE ”]”. 
000760 d3 PGMd4-B0-8391 PIC X(Bdd1) VALUE "|". 
800778 83 FILLER PIC X(8878). 

800789 03 PGMO4-B0-0380 PIC X(BBd1) VALUE "|". 
200798 03 PGMO4-08-B4D1 PIC X(BB81) VALUE ”|”. 


200889 83 FILLER PIC X(8826). 
080818 03 PGMB4-B8-0428 PIC X(B018) VALUE "DIRECTORY WECHSELN”. 
200828 83 FILLER PIC X(8834). 


000830 03 PGMO4-OB-Q4808 PIC X(B801) VALUE "|". 
000848 03 PGMB4-08-0501 PIC X(B881) VALUE "|". 
000859 83 FILLER PIC X(8878). 
080869 03 PGMd4-08-0580 PIC X(B801) VALUE ”|”. 
800878 d3 PGMd4-DA-B601 PIC X(DA01) VALUE ”|”. 
200888 83 FILLER PIC X(0078). 
280898 03 PGMB4-00-0680 PIC X(Q081) VALUE "|". 
200908 03 PGMD4-08-0781 PIC X(B8d1) VALUE ”]”. 
200910 83 FILLER PIC X(8078). 
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000929 B3 __PGMO4-BO-0788 PIC X(B081) VALUE "|". 
nd0932 B3 _ PCMO4-OB-B8B1 PIC X(0027) VALUE "| Laufwerk - 
DOBga-  °-> :”. 

200958 03 FILLER PIC X(8852). 

200960 B3 __PGMB4-DB-B880 PIC X(ÖBA1) VALUE "|". 
200978 03 __PCMO4-D8-8901 PIC X(0801) VALUE "|". 
Daayed 03 FILLER PIC X(8078). 

200999 03 __PGMO4-B0-0980 PIC X(BR81) VALUE "|" 
YLALTT. 03 PGMB4-Dd-1801 PIC X(8825) VALUE ”| Neues Directory - 
BaBIdgıd-  r-->". 

0010280 03 FILLER PIC X(8854). 

n01038 03 __PGMO4-B0-1080 PIC X(8081) VALUE "|". 
001048 03 _ PGMO4-BB-1101 PIC X(8081) VALUE "|". 
D01058 83 FILLER PIC X(8878). 

DB1068 03 _ _PGM@4-BB-1180 PIC X(8081) VALUE "|". 
ad1078 03 __PGMB4-D8-1201 PIC X(B801) VALUE "|". 
Dn1d8B 03 FILLER PIC X(8878). 

dd1298 B3 _PGMB4-DB-1280 PIC X(8d1) VALUE "|". 
da1 100 03 PGMO4-80-1301 PIC X(0801) VALUE "|". 
Da1110 03 FILLER PIC X(8878). 

801128 83 _ PGMB4-QB-1380 PIC X(DBR1) VALUE "|". 
D01130 03 _ PGMB4-D8-1481 PIC X(BBR1) VALUE "|". 
D01148 83 FILLER PIC X(0978). 

d81158 B3 _ PGMA4-BR-1480 PIC X(BBB1) VALUE "|" 
D01160 03 _ _PGMO4-B0-1501 PIC X(0B01) VALUE "|". 
B81170 83 FILLER PIC X(0078). 

DB1180 B3 _ PCMO4-AB-1588 PIC X(BBR1) VALUE "|". 
201198 03 _ PGMO4-MB-1681 PIC X(ABR1) VALUE "|". 
001208 83 FILLER PIC X(8078). 

081218 083 _ PGMO4-06-1680 PIC X(DBR1) VALUE "|". 
081228 03 PGMO4-DB-1781 PIC X(QBR1) VALUE "|". 
001230 03 FILLER PIC X(8078). 

001248 03 __PGMO4-B0-1788 PIC X(B081) VALUE "|". 
201258 03 _ PGMO4-BB-1801 PIC X(BdB1) VALUE "|" 
001268 83 FILLER PIC X(8978). Y 
081278 023 __PGMO4-OB-1880 PIC X(B081) VALUE "|". 
Dd1280 B3 _ PGME4-DB-1901 PIC X(BdB1) VALUE "|". 
001298 03 FILLER PIC X(2078). 

DB1308 03 __PGMd4-AB-1980 PIC X(B981) VALUE "|". 
001318 03 __PGMB4-08-2081 PIC X(8981) VALUE "|". 
001320 03 FILLER PIC X(8878). 

001338 03 __PCMd4-Od-2880 PIC X(B001) VALUE "|" 
001348 03 PGMO4-BB-2101 PIC X(DB80) VALUE "m— nn nn 
DO1350- mm me] 
081368 01 PGMB4-81 REDEFINES PGMO4-dg 
001378 03 FILLER PIC X(8585). 

001388 03 __PGMA4-01-0826 PIC X(BBW1). 
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801398 
201408 
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83 FILLER PIC X(8159). 
B3 PGMO4-81-1826 PIC X(B048). 


DD 141 BUBEN UI IE IE EEE EEE TEE HR 


0801428 PROCEDURE DIVISION. 
001438 PROGRAMM-STEUERUNG SECTION. 
D01448 PR-1000. 


B01458 
001460 
801478 
001489 


PERFORM VERARBEITUNG UNTIL ENDE. 


PR-9999. 


EXIT PROGRAM. 
STOP RUN. 


DOIAIDRRR RUE FUN EEE UK RE 


0801500 VERARBEITUNG SECTION. 
BB1518 VER-1088. 


891520 
201539 
001548 


DO1550** 


081569 
281578 
001589 
201598 
01600 


DO161D** 


0801629 
001638 
001640 


201650%** 


801660 
001679 
081680 
801699 
091700 
881718 
881720 
001738 
0801748 
881758 
801768 
0081778 
201788 
201798 
801809 
BB1819 
801820 
201830 
201848 
001858 


DISPLAY SPACE UPON CRT. 


ATTRIBUTE SCHREIBEN 

MOVE 1688 TO LAENGE. 

MOVE 1 TO BILDSCHIRM-POS PUFFER-POS. 

CALL EIN-AUSGABE USING SCHREIBEN-ATTR FORM-PARAMETER 
PGMO4-B8-ATTR. 


TEXT SCHREIBEN 
CALL EIN-AUSGABE USING SCHREIBEN-ZEICHEN FORM-PARAMETER 
PGMB4-BB. 


VARIABLEN EINGEBEN 
ACCEPT PGMQ4-81 FROM CRT. 


MOVE SPACE TO VERZEICHNIS. 
MOVE 1 TO ZEIGER. 


STRING PGMd4-D1-8826 ":” 
PGMB4-81-1826 
"og" DELIMITED BY SPACE 
INTO VERZEICHNIS 
WITH POINTER ZEIGER. 


SUBTRACT 1 FROM ZEIGER. 
MOVE ZEIGER TO X91-LAENGE. 
MOVE 8 TO FUNKTION. 


CALL X”"91” USING ERGEBNIS FUNKTION PARAM-X91-8. 
IF ERGEBNIS = 

DISPLAY "DIRECTORY GEWECHSELT” AT 25891 
ELSE 

DISPLAY "FEHLER AUFGETRETEN” AT 2501. 
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BR186R 
881878 DISPLAY ENDE-MELDUNG AT 2401. 
BB1880 ACCEPT ENDE-KENNZEICHEN AT 2416. 


801898 VER-9999. 
821900 EXIT. 


Laufwerk > 


Neues Directory ---> ul 


Ende (J/N) === 
DIRECTORY GEWECHSELT 


Dialog-Testlauf (PGM04) 
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PGM05: Feststellen der Parameteranzahl im Unter- 
programm 


B88818 IDENTIFICATION DIVISION. 


Böndß28 PROGRAM-ID. PGMBS. 
200030 AUTHOR. R. HABIB. 
280040 DATE-WRITTEN. 81-81-1987. 


8000850 DATE-COMPILED. Ö1-Apr-87 19:23. 


WITT ELLE 222 202 22 2202 2222 2 222 25 2222 22 2 2 zz 22 222 22 2 222 227272 212722021272 2727272027272 7027. 
DIT DEREN EUREN RENNER RE 


WILETEE x%* 
200090** PROGRAMMFUNKTION: xx 
DOH1DO** x 


BDD110%* DIESES PROGRAMM KANN ZUSAMMEN MIT DEM UNTERPROGRAMM "PGMO5U” *%* 
200120** VERWENDET WERDEN, UM DIE ANZAHL DER VON EINEM COBOL-HAUPT- *%* 


2800130%** PROGRAMM AN EIN UNTERPROGRAMM ÜBERGEBENEN PARAMETER BEIM *% 
000140%** CALL-AUFRUF FESTZUSTELLEN. *% 
DON 150%** ”% 


"IKT EEE E22 220272720202 02727272 2 120127272 021272727272 127272 21272727272 2727272727272 70272 2727272721202 272120202272 2127202027 
VID EEE & 202 2 2 202 2727202 2727272 02 2727272021272 7272 2127272727272 7272722727272 72 2027272 2727272272702 720270272 2127272027272 027 


BOKA180 ENVIRONMENT DIVISION. 
B88198 CONFIGURATION SECTION. 
208200 SOURCE-COMPUTER. IBM-PC. 
200210 OBJECT-COMPUTER. IBM-PC. 
0800228 SPECIAL-NAMES. 

200230 DECIMAL-POINT IS COMMA, 
000248 CONSOLE IS CRT. 

2880258 INPUT-OUTPUT SECTION. 
0800260 FILE-CONTROL. 


00270 PETER TEE EHEN IE EEE KIN 


200280 DATA DIVISION. 


000290 

800308 WORKING-STORAGE SECTION. 

2808318 

0003208 81 ENDE-MELDUNG PIC X(15) VALUE 
000330 "Ende (J/N) ===>”. 

200340 

8008350 di ENDE-KENNZEICHEN PICX VALUE SPACE. 
Ö00360 88 ENDE VALUE "I" "5". 
880370 

000380 Bi ZAHLI PIC 9(84). 
0080398 Bi ZAHL2 PIC 9(84). 
A004B8 B1 SUMME PIC 9(84). 


DOD4 1 Dr III IIIEIIIIIIIBIIHIGIOIIBIEIBIBIIIIIIEIEIIIIIIEI IE III RE 


800420 PROCEDURE DIVISION. 


9-23 


Demonstrationsprogramme 


0080438 PROGRAMM-STEUERUNG SECTION. 
000440 PR-1D00. 


000450 


PERFORM VERARBEITUNG UNTIL ENDE. 


D0D46B PR-9999. 


000478 
000480 


EXIT PROGRAM. 
STOP RUN. 


8094 9 NPEEBRBEHEEHEEEIIIIIEIIEEIEEEEEEIIIIIIIIIIIIBIBIIIBIBIBIIIBIBIEIIEI I III IE HER: 


080508 VERARBEITUNG SECTION. 
B08510 VER-190B. 


200520 
200530 
200540 
800558 
800568 
200578 
200580 
0800598 
0800608 
200618 
000628 
200630 
000640 
800650 
200668 
800670 
000689 
0800690 
000708 
280718 
200728 


9-24 


DISPLAY SPACE UPON CRT. 


DISPLAY 
"TESTEN DER PARAMETERÜBERGABE AN EIN UNTERPROGRAMM” 
AT D110. 
DISPLAY "GEBEN SIE 2 ZAHLEN EIN:” AT 8301. 
ACCEPT ZAHLI AT 0340. 
DISPLAY "+" AT 0346. 
ACCEPT ZAHL2 AT 8348. 
CALL "PGMOSU”. 
CALL "PGMd5U” USING ZAHLI, ZAHL2, SUMME. 
CALL "PGMO5U” USING ZAHLI, ZAHL2. 
DISPLAY ENDE-MELDUNG AT 2401. 


ACCEPT ENDE-KENNZEICHEN AT 2416. 


VER-9999. 


EXIT. 
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2888018 IDENTIFICATION DIVISION. 


000028 PROGRAM-ID. PGMOSU. 
080030 AUTHOR. R. HABIB. 
000049 DATE-WRITTEN. 81-81-1987. 


B00050 DATE-COMPILED. M1-Apr-87 19:23. 


DODDE Dr EEE IEIENER 
880.97 DH 3 3 3 EEE IE IE REIEIEIEIIEIEIEIE IE HEHE TEILE HERE EI IEHE HEHE IE HERR RK 


WELLETEE 
BODDId** 
DO“ * 
BDA 10%** 
D0B120** 
DBOH130%** 
DOD14D** 
BOH150** 
DAH16O** 
D00170*% 
DON180** 


%% 
PROGRAMMFUNKTION: “% 
%% 
DIESES PROGRAMM KANN NUR ALS EXTERNES UNTERPROGRAMM wir 
AUSGEFÜHRT WERDEN. ES WIRD AUS DEM HAUPTPROGRAMM "PGMB5” “% 
GESTEUERT. “x 
*% 
ZWECK DIESES PROGRAMMS IST ES FESTZUSTELLEN, WIE VIELE “x 
PARAMETER VOM HAUPTPROGRAMM ÜBERGEBEN WURDEN, UM ENTSPRECHEND** 
IN DIE PROGRAMMLOGIK ZU VERZWEIGEN. ”* 
*#%R 


VEIBRTEEEE ESS 20202 020202727212 2020272727272 0202027027272 7272 020272727272 7202027272122 02202 2027027272212 720220202 2 202727272727 


WIPÄ TEE ES 2020272027222 02 2 2127202 0271272727272 727221272 721272727272 72 722 2272727227272 7272021272 720272 202127202722 02 02.2727 


808218 ENVIRONMENT DIVISION. 
0062208 CONFIGURATION SECTION. 
200230 SOURCE-COMPUTER. IBM-PC. 
008240 OBJECT-COMPUTER. IBM-PC. 
0002508 SPECIAL-NAMES. 


000260 
0880278 


DECIMAL-POINT IS COMMA, 
CONSOLE IS CRT. 


808288 INPUT-OUTPUT SECTION. 
808298 FILE-CONTROL. 


80.030 3: 3 EIER III TEIIEIEIEIEKREIIEHEK 


888310 DATA DIVISION. 


800320 


200330 WORKING-STORAGE SECTION. 


200340 

208358 91 
208368 91 
200378 91 
200380 

008398 91 
200488 91 


FUNKTION PIC 9(82) COMP. 
ERGEBNIS PIC 9(82) COMP. 
PARAM-ANZAHL PIC 9(82) COMP. 
AUSGABE PIC X(28). 
ANZAHL-DISP PIC 9(82). 


D00 41 3 3 RR EIIIIEIIEIIIIEIEIIIIOIEIIEIIBIBIHIHIBIEIBIBIIBIIIBIIIBIRIHIHIHIOIEIER III HE 


0008420 LINKAGE SECTION. 


080439 91 
008448 91 
DOd450 91 


ZAHL! PIC 9(84). 
ZAHL2 PIC 9(84). 
SUMME PIC 9(84). 


20046 dB’ BRRRRRRBIBBBBIEIIIRIBIOIBBIBBIIETIBIBIBIBIBIBIBIOIIEIEIEIIIIHIHIBIBII III III 


880478 PROCEDURE DIVISION USING ZAHLI, ZAHL2, SUMME. 
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BBB48Q PROGRAMM-STEUERUNG SECTION. 

800490 PR-1000. 

209500 PERFORM VERARBEITUNG. 

888518 PR-9999. 

209520 EXIT PROGRAM. 

DOD5 3 EEE EEE ENE RE 
2080540 VERARBEITUNG SECTION. 

000550 VER-1B88. 


089560 DISPLAY ">>>> UNTERPROGRAMM AKTIV <<<<” AT 2401. 
800578 MOVE 16 TO FUNKTION. 

000588 CALL X”91” USING ERGEBNIS FUNKTION PARAM-ANZAHL. 
808598 

000608 MOVE PARAM-ANZAHL TO ANZAHL-DISP. 

88610 

000620 IF PARAM-ANZAHL = 9 

080630 

000640 DISPLAY "VERSUCH 1:” AT 8548 

2800650 DISPLAY ANZAHL-DISP AT 8552 

000669 DISPLAY "PARAMETER WURDEN ÜBERGEBEN” AT 8555 
208678 

200689 

208690 ELSE IF PARAM-ANZAHL = 3 

008708 ADD ZAHL1 ZAHL2 GIVING SUMME 

280718 DISPLAY ZAHLI AT 8715 

000728 DISPLAY "+" AT 8728 

28808730 DISPLAY ZAHL2 AT 8722 

800740 DISPLAY "=" AT 0727 

2880750 DISPLAY SUMME AT 8729 

2808760 

0800778 DISPLAY "VERSUCH 2:” AT 0748 

000780 DISPLAY ANZAHL-DISP AT 0752 

808790 DISPLAY "PARAMETER WURDEN ÜBERGEBEN” AT 8755 
Bn088n 

DRn081g ELSE IF PARAM-ANZAHL = 2 

000820 DISPLAY ZAHL1 AT 8915 

200830 DISPLAY "+” AT 0920 

000840 DISPLAY ZAHL2 AT 0922 

2808508 DISPLAY "=" AT 8927 

00868 ADD ZAHLI TO ZAHL2 

200870 DISPLAY ZAHL2 AT 0929 

00880 

800899 DISPLAY "VERSUCH 3:” AT 0949 

800988 DISPLAY ANZAHL-DISP AT 8952 

208910 DISPLAY "PARAMETER WURDEN ÜBERGEBEN” AT 8955. 
200920 DISPLAY ” ” AT 2401. 


0208930 VER-9999. 
DO0I4D EXIT. 
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GEBEN SIE 2 ZAHLEN EIN: + 
VERSUCH 1: 88 PARAMETER WURDEN ÜBERGEBEN 


3000 + 4000 = 7008 VERSUCH 2: 03 PARAMETER WURDEN ÜBERGEBEN 


3000 + 4000 = 7000 VERSUCH 3: 82 PARAMETER WURDEN ÜBERGEBEN 


Ende (J/N) ===> 


Dialog-Testlauf (PGM05) 
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PGM06: Löschen einer Datei 


BBRD18 IDENTIFICATION DIVISION. 


288028 PROGRAM-ID. PGMd6. 
80038 AUTHOR. R. HABIB. 
000840 DATE-WRITTEN. 81-81-1987. 


000850 DATE-COMPILED. B1-Apr-87 19:23. 


08.806 033333 RRRBREIRREIBRIEBEIBEIGHTEIBBIEIIEIIEIST III IHIIIIII III ICH IHRE 
D0.00 79:4 HH SI RIESE IGIIEIIEIEIEIEI IE HEHE II IEIE III II III III EICH III HE 


WLLJTEE ”% 
200090** PROGRAMMFUNKTION: #% 
DDD1ND** ”% 
BBB118** DAS PROGRAMM ZEIGT IHNEN, WIE MAN AUS DEM COBOL-PROGRAMM Rx 
808120%** EINE DISKETTEN-DATEI LÖSCHEN KANN. xx 
DOD130%*%* “x 


VIIRELVEEZE ESS 2022727202022 72 2020272 21272727212 7272 7212027272122 727272727272 72 7272721202727 2 1202 2702727202 1272 72121272 27272027. 
20015 DH 3 3 HHBBIIRIBBEIIBIBIBIIBIEIBIEIBIBIHIIE III III REN RR HR 
888160 ENVIRONMENT DIVISION. 

808178 CONFIGURATION SECTION. 

BOB18Q SOURCE-COMPUTER. IBM-PC. 

888198 OBJECT-COMPUTER. IBM-PC. 

0002008 SPECIAL-NAMES. 

208218 CONSOLE IS CRT. 

888228 INPUT-OUTPUT SECTION. 

2088230 FILE-CONTROL. 


DD 24 DH EEE NEE EEE HUHN 


0200250 DATA DIVISION. 


000268 

000278 WORKING-STORAGE SECTION. 

000289 

080298 Di ENDE-MELDUNG PIC X(15) VALUE 
200308 "Ende (J/N) ===>”. 

200310 

0808320 Bi ENDE-KENNZEICHEN PICX VALUE SPACE. 
0200330 88 ENDE VALUE "I" ”j”. 

0800340 


WIISLEILELLEE EEE 22 2 2022 2 2272722727272 72 7272121202022 0202 21272027272 7272 727272727272 7272727272722 72727272 27272 2127202027. 


0800360* PARAMETER FÜR EIN/AUSGABE VON BILDSCHIRM-ATTRIBUTEN BZW. DATEN * 


VISA ELEEE EEE 2 202 2 222722 22 27272 27272020202 1212727227272 72 727127272 72727272 727272727272 727272727272 72727202 27272722027. 


Bnd3ed Bi EIN-AUSGABE PIC X(1) VALUE X”B7”. 
200398 

00408 Bi SCHREIBEN-ZEICHEN PIC 9(2) COMP VALUE 1. 
B08418 Bi SCHREIBEN-ATTR PIC 9(2) COMP VALUE 3. 
000420 


000438 01 FORM-PARAMETER. 
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DB0440 83 LAENGE PIC 9(4) COMP. 

800450 83 BILDSCHIRM-POS PIC 9(4) COMP. 

000460 83 PUFFER-POS PIC 9(4) COMP. 

DOOR EEE NEUERE EHER N 
D8B8480 Bi ERGEBNIS PIC 9(82) COMP. 

200498 81 FUNKTION PIC 9(82) COMP. 


DOBO500 B1 PARAM-X91-18. 
800519 05 X91-LAENGE PIC 99 COMP. 
800520 05 DATEI-NAME PIC X(14). 


WIIEBIELLLNEE SEE 2202022727272 727272 202727220202 221221872 72787272727272727272727272727272 27272 22 2 2721212 02/2.2720270275 


008548 Bi ZEIGER PIC 9(82). 


DOOSSHRRRRHURRRUU RU NENRRUNETUEEHUHENHTEEEENNRHNRUN UK K R 


BR0578 91 PGMO6-BO-ATTR. 


000580 83 FILLER PIC X(8181) VALUE ALL X”03”. 
2880590 83 FILLER PIC X(8829) VALUE ALL X”"31”. 
0800600 083 FILLER PIC X(8851) VALUE ALL X”03”. 
200618 83 FILLER PIC X(8829) VALUE ALL X”31”. 
000620 83 FILLER PIC X(8851) VALUE ALL X”83”. 
0800630 03 FILLER PIC X(8829) VALUE ALL X”31”. 
000640 83 FILLER PIC X(8135) VALUE ALL X”B3”. 
B80650 83 FILLER PIC X(8814) VALUE ALL X"13”. 
000660 83 FILLER PIC X(1481) VALUE ALL X”83”. 


800678 91 PGMd6-DB 
208688 03 PGMO6-BB-D1D1 PIC X(DD80) VALUE " gm 


DA069H- EEE TEE ” 
280708 03 PGMB6-B8-D201 PIC X(DB81) VALUE "|". 
8080718 83 FILLER PIC X(8078). 


800728 03 PGMB6-DB-0280 PIC X(B8B1) VALUE ”|”. 
200730 03 PGMd6-D-8391 PIC X(BDg1) VALUE ”|”. 
200740 83 FILLER PIC X(B078). 

200758 03 PGMO6-DR-8380 PIC X(DAd1) VALUE ”|”. 
808760 D3 PGMA6-DQ-B401 PIC X(BA01) VALUE ”|”. 


2808778 83 FILLER PIC X(8024). 
280788 03 PGMd6-08-0426 PIC X(0919) VALUE "Löschen einer Datei”. 
880798 83 FILLER PIC X(8835). 


200808 03 PGMA6-DR-0480 PIC X(BDD1) VALUE "|". 
B00810 83 PGMO6-BB-A5B1 PIC X(B801) VALUE ”|”. 
200820 83 FILLER PIC X(B078). 

000838 03 PGMO6-08-0588 PIC X(BBQ1) VALUE "|". 
200840 03 PGMO6-DB-B6Dd1 PIC X(OBd1) VALUE "|". 
280850 83 FILLER PIC X(8078). 

280860 03 PGMO6-DD-0680 PIC X(DBB1) VALUE ”|”. 
200878 03 PGMd6-BB-Q781 PIC X(8024) VALUE "| Dateiname -- 
B00880- 2”, 

200890 83 FILLER PIC X(8855). 

2080908 03 PGMO6-DA-D788 PIC X(BRB1) VALUE "|". 
208910 03 PGMd6-BR-B8dı PIC X(BAB1) VALUE ”|”. 
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000928 
200930 
880940 
200959 
000969 
200978 
200980 
808998 
001009 
BB1818 
28010208 
891030 
2881040 
0881058 
281068 
881078 
201088 
281098 
01188 
BA1110 
801120 
001138 
891148 
2981158 
2881168 
0881178 
201180 
881198 
291200 
891210 
281228 
201230 
201240 
081258 
001268 
801278 
801288 
001299 
8081308 
Ba1318- 
801320 01 
201330 
801340 


VALUE 
VALUE 


VALUE 
VALUE 


VALUE 
VALUE 


VALUE 
VALUE 


VALUE 
VALUE 


VALUE 
VALUE 


VALUE 
VALUE 


VALUE 
VALUE 


VALUE 
VALUE 


VALUE 
VALUE 


VALUE 
VALUE 


VALUE 
VALUE 


VALUE 
VALUE 


” 4" 
PGMO6-RD 


83 FILLER PIC X(8078). 
B3 PGMd6-DB-D88d PIC X(8801) 
B3 PGMB6-80-B981 PIC X(8801) 
83 FILLER PIC X(0078). 
Ö3 PGMO6-BB-d980 PIC X(BDB1) 
03 PGMB6-B8-1891 PIC X(B801) 
83 FILLER PIC X(8078). 
B3 PGMO6-BD-1088 PIC X(B8B1) 
83 PGMO6-BR-1181 PIC X(8801) 
83 FILLER PIC X(8878). 
d3 PGMd6-B8-11808 PIC X(8891) 
B3 PGMBd6-D8-1281 PIC X(8881) 
83 FILLER PIC X(8878). 
B3 PGMB6-88-1280 PIC X(8891) 
B3 PGMd6-BA-1381 PIC X(D801) 
83 FILLER PIC X(B078). 
03 PGMO6-88-1380 PIC X(B801) 
03 PGMd6-D8-1401 PIC X(0881) 
83 FILLER PIC X(8078). 
d3 PGMB6-08-1488 PIC X(8881) 
Ö3 PGMB6-BB-1581 PIC X(8801) 
83 FILLER PIC X(0078). 
03 PGMd6-BB-1588 PIC X(8881) 
D3 PGMO6-DB-1601 PIC X(8891) 
83 FILLER PIC X(8878). 
d3 PGMd6-8B-1688 PIC X(8801) 
83 PGMB6-8B-1701 PIC X(8891) 
83 FILLER PIC X(8878). 
03 PGMd6-2D-1788 PIC X(8801) 
03 PGMd6-B8-1891 PIC X(8891) 
83 FILLER PIC X(8878). 
03 PGMd6-BQd-1880 PIC X(8081) 
03 PGMB6-BB-1981 PIC X(8881) 
03 FILLER PIC X(8878). 
03 PGMd6-BB-1980 PIC X(B801) 
03 PGMB6-D8-2891 PIC X(B801) 
83 FILLER PIC X(8078). 
83 PGMd6-0d-2888 PIC X(0881) 
03 PGMB6-BB-2181 PIC X(2088) 
PGMB6-91 REDEF INES 
83 FILLER PIC X(8585). 
03 PGMB6-01-0726 PIC X(B014). 


80135 13303383 
881360 PROCEDURE DIVISION. 
001378 PROGRAMM-STEUERUNG SECTION. 
881380 PR-1000. 


9-30 


801398 


Demonstrationsprogramme 


PERFORM VERARBEITUNG UNTIL ENDE. 


BR1488 PR-9999. 


801410 
091420 


EXIT PROGRAM. 
STOP RUN. 


801433333 a RRBEIEIRBEIBIBBEIEIBBEISHHEBIEIBEEIBBTEBIEEIHHIEIGHTIEHTIHHIEIEIERN 


801448 VERARBEITUNG SECTION. 
B81458 VER-1D808. 


001468 

0891478 DISPLAY SPACE UPON CRT. 

001480 

001490** ATTRIBUTE SCHREIBEN 

201588 MOVE 1680 TO LAENGE. 

801510 MOVE 1 TO BILDSCHIRM-POS PUFFER-POS. 

881528 CALL EIN-AUSGABE USING SCHREIBEN-ATTR FORM-PARAMETER 
881538 PGMd6-B8-ATTR. 

801540 

B01550** TEXT SCHREIBEN 

001568 CALL EIN-AUSGABE USING SCHREIBEN-ZEICHEN FORM-PARAMETER 
801578 PGMB6-BB. 

081589 

001590%* VARIABLEN EINGEBEN 

001608 ACCEPT PGMB6-81 FROM CRT. 

881618 

801620 MOVE SPACE TO DATEI-NAME. 

201638 MOVE 1 TO ZEIGER. 

881640 

801658 STRING PGMd6-01-8726 DELIMITED BY SPACE 

001668 INTO DATEI-NAME 

881678 WITH POINTER ZEIGER. 

001680 

881690 SUBTRACT 1 FROM ZEIGER. 

81708 MOVE ZEIGER TO X91-LAENGE. 

281718 MOVE 18 TO FUNKTION. 

881728 

801738 CALL X”91” USING ERGEBNIS FUNKTION PARAM-X91-18. 
801748 

881758 IF ERGEBNIS = 9 

881768 DISPLAY "DATEI ERFOLGREICH GELÖSCHT” AT 2581 
881778 ELSE 

091788 DISPLAY "DATEI EXISTIERT NICHT” AT 2501. 
081799 

801808 DISPLAY ENDE-MELDUNG AT 2491. 

81819 ACCEPT ENDE-KENNZEICHEN AT 2416. 

018208 VER-9999. 

001830 EXIT. 
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Loschen einer Datei 


Dateiname 


Ende (J/N) ===) 
DATEI ERFOLGREICH GELÖSCHT 


Dialog-Testlauf (PGM06) 
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PGM07: Menüsteuerung über Funktionstasten 


BRDKAI® IDENTIFICATION DIVISION. 


080020 PROGRAM-ID. PGMB7. 
000030 AUTHOR. R. HABIB. 
200040 DATE-WRITTEN. 81-81-1987. 


200058 DATE-COMPILED. B1-Apr-87 19:24. 


WITITELEE SEE 2 2227202027202 02 202052222202 2 EEE E22 22 2 222 2 222 2 2 22 2 27212 0272272721272 2720272 2027278 
"III E EEE 0202 202222222022 22 22 227202 272 22 2120227272722 127222 272727272702 2721212127272 202027121202 202027275 


VELEETEE *% 
2008090** PROGRAMMFUNKTION: xx 
WLAN ES xx 


DOO110** DIESES PROGRAMM DEMONSTRIERT DIE MÖGLICHKEIT, FUNKTIONSTASTEN** 
000120** MIT DEM UNTERPROGRAMM X”Bß” ZU PROGRAMMIEREN UND MIT HILFE ** 
0008130%** EINER SOLCHEN ZU EINER BESTIMMTEN FUNKTION AUS EINEM MENÜ ”% 
BRD140** ZU VERZWEIGEN. *% 
DDR150*%* Ri 


PEIHKTERERFERTERDEREEERTEEETERERESTERTERTERERREEREETELUODEREOELUREEEEEEE 
WDIRNDERELELESTS EEE EETEETEUEEE EEE EEEEEUUDEREEEELLLEUUUESEEEDEEERDENETED 
BB8188 ENVIRONMENT DIVISION. 

BBB19B8 CONFIGURATION SECTION. 

2008288 SOURCE-COMPUTER. IBM-PC. 

BaBn210 OBJECT-COMPUTER. IBM-PC. 

0002208 SPECIAL-NAMES. 

200239 CONSOLE IS CRT. 

880248 INPUT-OUTPUT SECTION. 

000258 FILE-CONTROL. 
WIIPATERELELLELEREEER EEE LEE TEE EEE TEE EEE ELLE EEE E 
0088278 DATA DIVISION. 

200288 

0002908 WORKING-STORAGE SECTION. 


WBTTELEEE SEE 22 2 2020202 202 2020272 2020212727272 127272727212 7272272127272 7272727272722 7202720220202 7272022127202 20272027 


0008310* PARAMETER FÜR EIN/AUSGABE VON BILDSCHIRM-ATTRIBUTEN BZW. DATEN * 


WII BTA ELLE EEE ES SS 22 22 202 20202027272 272 1272027272722 727272720272 1212 7272720202722 027272 712,2 7202027212722 722727272 12720 


200338 


000348 01 EIN-AUSGABE PIC X(1) VALUE X”B7”. 
000358 

000360 Bi SCHREIBEN-ZEICHEN PIC 9(2) COMP VALUE 1. 
800370 81 SCHREIBEN-ATTR PIC 9(2) COMP VALUE 3. 
200380 

208398 81 FORM-PARAMETER. 

200408 03 LAENGE PIC 9(4) COMP. 

200418 83 BILDSCHIRM-POS PIC 9(4) COMP. 

200428 83 PUFFER-POS PIC 9(4) COMP. 


WITE STEEL EEE 2 2 2027802020202 2022127127272 7212 1212222727272 72720272 1212122727272 727272727272 7272 727272027202 7272727272027272727° 
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000448 81 
808458 91 


B00468 
800478 
D00480% 
B00498 
200588 
208518 
000520 
000530%* 
0800540 
000550% 
880568 
200578 


208588 91 


880598 
000608 


TASTEN-PROGRAMMIERUNG PIC 99 COMP VALUE Bd. 
TASTEN-TABELLE. 
03 TASTEN-NR PIC 99 COMP. 
FUNKTIONSTASTEN 1 BIS 9 

83 FILLER PIC X(15) 

VALUE X”902003B02003C02003D82003E02D03F”. 
83 FILLER PIC X(12) 

VALUE X”022040020041020042020043”. 

DIE TASTEN: 10=ESC 


03 FILLER PIC X(2) VALUE X”d11B”. 
ENDE-KENNZEICHEN 

83 FILLER PICX VALUE X”08”. 
DEAKTIVIEREN. 

83 FILLER PIC 99 COMP. 

83 FILLER PIC X VALUE X”dß”. 


YITIBEEEE ES EEE E22 & 2 202 2 2 2 272 2 272 20272 20272720272 7272 0272212720202 7022727227272 022 20272 2120221272 2720272202727 


000628 81 


DUMMY PICX. 


DOD6 ED RENTEN UHREN 


B08658 91 


B00660 
800670 
800689 


200698 91 


BOB7DR 
B08718- 
B00728 
B00730 
00748 
B88758 
BB0768 
00770 
BOD78B 
800798 
YELT 
DB0810 
BB0820 
BoB830 
BOBS40- 
BB8858 
BBB86H 
B00878 
ERS, 
BB0898 
BBB9B8 
000918 
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pgnd?7-Bd-ATTR. 


83 FILLER PIC X(1917) VALUE ALL X”083”. 

83 FILLER PIC X(0881) VALUE ALL X”0ß”. 

83 FILLER PIC X(8882) VALUE ALL X”03”. 
pgnd7-080 


03 pgnd?-Dd-B101 PIC X(DO80) VALUE " pm————m———n 


d3 pgnd?-88-8201 PIC X(Q8dı) VALUE "|". 
83 FILLER PIC X(8078). 

03 pgnd?-88-0280 PIC X(Q081) VALUE ”|”. 
83 pgmd7-08-8301 PIC X(D801) VALUE "|". 


03 FILLER PIC X(8831). 
03 pgnd?-00-0333 PIC X(8811) VALUE "FIBU-System”. 
83 FILLER PIC X(8836). 


03 _ pgmd?-00-0380 PIC X(8801) VALUE "|". 
03 pgmd7-B8-8481 PIC X(BBB1) VALUE "|". 
83 FILLER PIC X(0078). 

03 _ pgn@7-88-0488 PIC X(B881) VALUE "|". 


03 pgmd7-00-8501 PIC X(D082) VALUE ” m——— 


03 pgnd7-BB-0601 PIC X(B881) VALUE "|". 
83 FILLER PIC X(B878). 

03 pgmf7-BB-0688 PIC X(BBB1) VALUE "|". 
63 pgmß7-08-0701 PIC X(B881) VALUE "|". 
83 FILLER PIC X(8878). 

03 pgmd7-06-0780 PIC X(8881) VALUE "|". 
03 pgmd7-06-Bed1 PIC X(0801) VALUE "|". 


200928 
200938 
D00940 
200959 
800960 
2800970 
800988 
800998 
DR1008- 
B81018 
801020 
881030 
281040 
801059 
BD1060 
081078 
201080 
801090 
881109 
BA1119 
B01120 
891138 
BO1148- 
881150 
801160 
81178 
001189 
881198 
001288 
881210 
801220 
801230 
801240 
281258 
801268 
001278 
001280 
001298 
801308 
801310 
801328 
201330 
001340 
801358 
801368 
201378 
801380 


83 FILLER 


PIC 


03 pgnd7-08-0888 PIC 


03 pgnd?-908-0901 


83 FILLER 


PIC 
PIC 


83 pgnd7-08-8939 PIC 


83 FILLER 


PIC 


D3 pgmd7-88-0988 PIC 


83 pgnd?-88-1081 


"rwaltung 
83 FILLER 


PIC 
I F2 | 
PIC 


03 pgnd?-8d-1088 PIC 


03 pgmd7-88-1101 


83 FILLER 


PIC 
PIC 


B3 pgnd?7-8d-1139 PIC 


83 FILLER 


PIC 


03 pgnd?-dd-1188 PIC 


03 pgnd?7-88-1281 


83 FILLER 


PIC 
PIC 


03 pgnd7-88-1239 PIC 


83 FILLER 


PIC 


03  pgmd7-D6-1288 PIC 


83 pgnd7-89-1301 


"system”. 
83 FILLER 


PIC 


PIC 


83 pgnd7?-88-1339 PIC 


83 FILLER 


PIC 


83 _ pgmd7-DB-1388 PIC 


03 pgnd?7-00-1401 


83 FILLER 


PIC 
PIC 


03 pgnd?-88-1439 PIC 


83 FILLER 


PIC 


03 _ pgmd7-0d-1488 PIC 


03 pgnd?-88-1591 


83 FILLER 


PIC 
PIC 


03 pgnd7?-88-1539 PIC 


83 FILLER 


PIC 


03 pgnd?-00-1580 PIC 


03 pgnd7-88-1601 


83 FILLER 


PIC 
PIC 


B3 pgnd?-88-1639 PIC 


83 FILLER 


PIC 


063 _ pgnd7-08-1680 PIC 


03 pgnd?7-08-1701 


83 FILLER 


PIC 
PIC 


03 pgnd?-88-1739 PIC 


83 FILLER 


PIC 


03 pgnd?-B80-1788 PIC 


X(8878). 
X(8881) 
X(0808) 
X(8938). 
X(0886) 
X(8835). 
X(88091) 
X(8869) 
Offene 
X(8818). 
X(88091) 
X(0908) 
X(0030). 
X(8886) 
X(8835). 
X(8891) 
X(0888) 
X(8838). 
X(B806) 
X(0835). 
X(8801) 
X(0828) 


X(B818). 
X(8819) 
X(8822). 
X(8801) 
X(0888) 
X(0838). 
X(0086) 
X(8835). 
X(0881) 
X(0808) 
X(0038). 
X(8086) 
X(8835). 
X(80881) 
X(8019) 
X(8819). 
X(8018) 
X(0823). 
X(8881) 
X(BPd8) 
X(0838). 
X(8086) 
X(80835). 
X(8881) 


VALUE 
VALUE 


VALUE 


VALUE 
VALUE 


Demonstrationsprogramme 


"ir! 


Stammdatenve 


Postenverwaltung”. 


VALUE 
VALUE 


VALUE 


VALUE 
VALUE 


VALUE 


VALUE 


VALUE 


VALUE 


VALUE 
VALUE 


VALUE 


VALUE 
VALUE 


VALUE 


VALUE 
VALUE 


VALUE 


VALUE 
VALUE 


VALUE 


VALUE 


"| L I”. 


"I I F3 | Informations 


"| F4 | Statistiken”. 


"I | F5 | Buchungen”. 


"I F6 | Managenent”. 
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801398 
881408 
B01410 
201428 
01438 
801440 
881450 
D01460 
001478 
D01480- 
B01498 
881508 
B881510 
8081528 
801530 
D01548 
881558 
801560 
881578 
801588 
801598 
001600 
B01619 
881620 
0881630 
001640 
801650 
001668 
801670 
001680 
001690 
801708 
881718 
801728 
881730 
801740 
B81758- 


BB1768 91 


081778 
001780 


VALUE 


VALUE 


VALUE 


VALUE 


VALUE 


VALUE 


VALUE 


VALUE 


VALUE 
VALUE 


VALUE 


VALUE 
VALUE 


VALUE 


VALUE 
VALUE 


VALUE 


VALUE 
VALUE 


VALUE 
VALUE 


"I | F? | Listendruck” 


"I F8 | Betriebssysten 


"I | F9 | Bilanz”. 


"| Esc]| Ende”. 


| , 
pgnd7-00 


03 pgmd7-d8d-1801 PIC X(ddBe) 
83 FILLER PIC X(B8838). 
03 pgmd7-80-1839 PIC X(8886) 
83 FILLER PIC X(8835). 
03 pgmd?7-8d-1888 PIC X(B891) 
03 _ pemd7-86-1981 PIC X(B821) 
03 FILLER PIC X(8817). 
03 pgnd?7-00-1939 PIC X(8922) 
83 FILLER PIC X(8819). 
03 pgnd?-Bd-1988 PIC X(dBd1) 
03 _ pgmd7-BB-2001 PIC X(dade) 
83 FILLER PIC X(8838). 
03 pgnd7-08-2039 PIC X(0886) 
83 FILLER PIC X(8835). 
03 pgmd?7-Bd-2088 PIC X(dBd1) 
03 _ pgmd7-Bd-2181 PIC X(dude) 
83 FILLER PIC X(8838). 
03 pgmd7?-08-2139 PIC X(0886) 
83 FILLER PIC X(8835). 
03 _ pgmd7-Qd-2180 PIC X(d0B1) 
03 _ pgmd7-06-2201 PIC X(BB16) 
83 FILLER PIC X(8822). 
03 pgmd7-80-2239 PIC X(80812) 
83 FILLER PIC X(8829). 
83 pgnd?-80-2280 PIC X(8891) 
03 pgmd?7-08-2381 PIC X(d0de) 
83 FILLER PIC X(8638). 
83 pgnd7-00-2339 PIC X(0886) 
83 FILLER PIC X(8035). 
03 pgnd7-20-2380 PIC X(8891) 
03 pgnd?-08-2481 PIC X(8801) 
83 FILLER PIC X(0078). 
83 pgnd?7-8d-2488 PIC X(00881) 
03 pgnd?-88-2581 PIC X(0989) 
pgmd7-01 _REDEFINES 
83 FILLER PIC X(1917). 
03 _ pgm@7-01-2478 PIC X(B801). 


DO 1 7 9) 3 3 3% 3% 38 36 a8 a6 636 Be Be BEE IIIBIIEBEIREEIBBEIBEEBIIBIIIIHIEIEENN 
BB1800 PROCEDURE DIVISION. 
BB1810 PROGRAMM-STEUERUNG SECTION. 
BB18208 PR-1000. 

PERFORM VORLAUF. 
PERFORM VERARBEITUNG UNTIL TASTEN-NR = 18. 
BB1850 PR-9999. 


801830 
B01840 
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EXIT PROGRAM. 
STOP RUN. 


WIREETSTE DEE & 5 2 2020202 02027208 5027202727272 727272 27272727272 027272020278 72 02202027202 0202 0272020270202 7202 12020272 2120272022727. 


881898 VORLAUF SECTION. 
BB1908 VOR-1088. 


BA191D 
001929 


MOVE 2088 TO LAENGE. 
MOVE 1 TO BILDSCHIRM-POS PUFFER-POS. 


B81930 VOR-9999. 


DO19I40 


EXIT. 


DO 1 IS DE IIIEIIEIIEEEEETRTEIIEIIIII III IHRER NER 


0881960 VERARBEITUNG SECTION. 
881970 VER-1080. 


801980 DISPLAY SPACE UPON CRT. 

281998 

002800 CALL X”B0” USING TASTEN-PROGRAMMIERUNG TASTEN-TABELLE. 
802010 

002020** ATTRIBUTE SCHREIBEN 

002038 CALL EIN-AUSGABE USING SCHREIBEN-ATTR FORM-PARAMETER 
202048 PGMB7-BQ-ATTR. 

B02050** TEXT SCHREIBEN 

202060 CALL EIN-AUSGABE USING SCHREIBEN-ZEICHEN FORM-PARAMETER 
202078 PGM97-80. 

202080 

802098 ACCEPT PGM&7-81 FROM CRT. 

202108 

802110 DISPLAY SPACE UPON CRT. 

202128 CALL X”B9” USING TASTEN-PROGRAMMIERUNG DEAKTIVIEREN. 
202130 

802149 GO TO VER-1108 

202150 VER-1200 

202160 VER-1389 

002178 VER-1498 

002189 VER-1588 

002199 VER-1680 

282288 VER-1788 

802210 VER-1808 

202220 VER-1988 

082230 VER-9999 DEPENDING ON TASTEN-NR. 

002240 

002259 GO TO VER-9999. 

202260 

002278 VER-1100. 

002288 DISPLAY ”"Stammdatenverwaltung ”AT 1328. 

802290 ACCEPT DUMMY AT 8191. 

802300 GO TO VER-9999. 

282310 


002320 VER-1208. 
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202330 
0802340 
202358 
002369 
802378 
002388 
802398 
802408 
202410 
002420 
002430 
002440 
802458 
002460 
002478 
002480 
202499 
802588 
802518 
802528 
002530 
002548 
802558 
002568 
002570 
002589 
802590 
02600 
002610 
002620 
002630 
002640 
002650 
802660 
002678 
002680 
002690 
802708 
002718 
002728 
002730 


DISPLAY "Offene Postenverwaltung ” AT 1328. 


ACCEPT DUMMY AT 8181. 


GO TO VER-9999. 


VER-1389. 
DISPLAY "Informationssysten 
ACCEPT DUMMY AT 8101. 


GO TO VER-9999. 


VER-1488. 


DISPLAY "Statistiken 


ACCEPT DUMMY AT B1P1. 


GO TO VER-9999. 


VER-1500. 


DISPLAY "Buchungen 


ACCEPT DUMMY AT 8181. 


GO TO VER-9999. 


VER-1608. 


DISPLAY "Management 


ACCEPT DUMMY AT 8191. 


GO TO VER-9999. 


VER-1788. 


DISPLAY "Listendruck 


ACCEPT DUMMY AT 8191. 


GO TO VER-9999. 


VER-1809. 
DISPLAY "Betriebssystem 
ACCEPT DUMMY AT Q101. 


GO TO VER-9999. 


VER-1908. 


DISPLAY "Bilanz 


ACCEPT DUMMY AT 81901. 


GO TO VER-9999. 


VER-9999. 


EXIT. 


” AT 1328. 


” AT 1328. 


” AT 1328. 


” AT 1328. 


” AT 1328. 


” AT 1328. 


"AT 1328. 
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FIBU-System 


7] 
DD 


= 7 
oo a nn 


Stamndatenverwaltung Offene Postenverwaltung 


Informationssystenm Statistiken 


Buchungen 


Management 


Listendruck 


=] 


Betriebssystem 


Bilanz Ende 


Dialog-Testlauf (PGM07) 
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PGM08: Druckersteuerung 


BBRB1Gd IDENTIFICATION DIVISION. 


B80020 PROGRAM-ID. PGMdB. 
200030 AUTHOR. R. HABIB. 
080048 DATE-WRITTEN. 81-91-1987. 


000058 DATE-COMPILED. B1-Apr-87 19:25. 


IIIITELEEE ES 2 22022 202020202702 712 7272727127272 72 7272 727272727272 722727270272 7272 7272272727272 7272727272722 1272 22 2 2222027 
WIDE EE EEE 220227202 2 2020272727272 7272 72 2721212127272 727272727272 7272 2727272720272 727272727212 72 72720272 272272727202 72027 


WET LE *% 
000090** PROGRAMMFUNKTION: ”% 
BRD 100% * *% 
DBH110%** MIT DIESEM PROGRAMM KÖNNEN SIE VERSCHIEDENE DRUCKER- Rx 
D0B120** STEUERUNGEN AUS DEM COBOL-PROGRAMM AKTIVIEREN. ”% 
B00130%*%* AUF "TASTENDRUCK” WIRD SOZUSAGEN EINE SEITE VORGESCHOBEN xx 
B808148** ODER AUF EINMAL FETT ODER Z.B. BREIT GESCHRIEBEN. ”% 
BOB150** *% 


VIE EEE E22 0202020202 72020272 21272 272727272 127272 272722277272 2720272727272 75 027272 72727272 727272757272 72 02027202727 2702 7272027: 
YIHRI EEE E22 220502722 272 2727272727272 72 7275727272722 727202027872 °2 727272727202 7272 027272027272 0272 02027202 0272027202 0272 020273 
Ödd18d ENVIRONMENT DIVISION. 

B00190 CONFIGURATION SECTION. 

B08200 SOURCE-COMPUTER. IBM-PC. 

BAD218 OBJECT-COMPUTER. IBM-PC. 

000228 SPECIAL-NAMES. 

000238 CONSOLE IS CRT. 

008248 INPUT-OUTPUT SECTION. 

808258 FILE-CONTROL. 

800260 SELECT AUSGABE ASSIGN TO ”PRN:”. 

WLKAL EEE EEE 202 2727202727272 72 08727272 7272727272 027272 727272727272 72727272 72727272 727272 0202727202727 2720272727 2020272°2°2 02027: 
000280 DATA DIVISION. 

080298 FILE SECTION. 

800380 

800310 FD AUSGABE. 

880320 81 A-SATZ PIC X(58). 

8080330 

000340 WORKING-STORAGE SECTION. 

200350 


800 36 DEI III III III NER RE 


000370%* PARAMETER FÜR EIN/AUSGABE VON BILDSCHIRM-ATTRIBUTEN BZW. DATEN * 


WEIBETELEN EEE 8 22 Eee ee ee ee 22 2272272727202 72727 27272727272°272 7272 72°272°2°272°272 27202 7272°2°202°2020202 02° 


080083908 di EIN-AUSGABE PIC X(1) VALUE X”B7”. 
808408 

BDB410 81 SCHREIBEN-ZEICHEN PIC 9(2) COMP VALUE 1. 
008428 81 SCHREIBEN-ATTR PIC 9(2) COMP VALUE 3. 
000438 
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200440 01 FORM-PARAMETER. 

000458 03 LAENGE PIC 9(4) COMP. 

000460 03 BILDSCHIRM-POS PIC 9(4) COMP. 

000470 83 PUFFER-POS PIC 9(4) COMP. 

200480 

0004908 Bi EIN-AUS-PARAM. 

280500 03 E-LAENGE PIC 9(4) COMP VALUE 7. 
280519 03 E-BILDSCHIRM-POS PIC 9(4) COMP. 

800528 03 E-PUFFER-POS PIC 9(4) COMP VALUE 1. 
880530 

800540 01 EIN-ATTR PIC X(7) VALUE ALL X”1B”. 
8885508 Bi AUS-ATTR PIC X(7) VALUE ALL X”03”. 
8005 6 DEE IEIEIIEIIIIHIHIHIEIHIHIIITIIII IHK RR RR R 
02082578 81 TASTEN-PROGRAMMIERUNG PIC 99 COMP VALUE 8. 
200580 081 TASTEN-TABELLE. 

800590 83 TASTEN-NR PIC 99 COMP. 

DR06On 

2006 10% FUNKTIONSTASTEN 1 BIS 9 

200620 83 FILLER PIC X(15) 

800630 VALUE X”"02003B02003C02003D02003E02003F”. 

000640 83 FILLER PIC X(12) 

000650 VALUE X”020040020041020042020043”. 

D00660* DIE TASTEN: 18=ESC 

200678 83 FILLER PIC X(2) VALUE X”d11B”. 
200680* ENDE-KENNZEICHEN 

800698 83 FILLER PICX VALUE X”98”. 
DO TODE RUNTER EHERNEREREHIEHEHENE RER RE 
Aaa7ıa DI DD-STATUS PIC 9 VALUE 8. 

200728 Bi UN-STATUS PIC 9 VALUE 2. 

000738 81 HG-STATUS PIC 9 VALUE ®. 

0080748 Bi BS-STATUS PIC 9 VALUE 8. 

080758 081 KS-STATUS PIC 9 VALUE Bd. 

VILMITELEE EEE E82 2220802727272 781272727278 72 727272727872 72 7272272727272 72727272727 272 7272727272122 727272727202 72 7272720272727 
208788 91 PGMO8B-DR-ATTR. 

200798 83 FILLER PIC X(1159) VALUE ALL X”03”. 
200808 #3 FILLER PIC X(8037) VALUE ALL X”1B”. 
280818 03 FILLER PIC X(0043) VALUE ALL X”03”. 
200820 83 FILLER PIC X(8837) VALUE ALL X”1B”. 
000830 83 FILLER PIC X(8043) VALUE ALL X”03”. 
800840 83 FILLER PIC X(0837) VALUE ALL X”1B”. 
800850 83 FILLER PIC X(08043) VALUE ALL X”03”. 
800868 03 FILLER PIC X(0837) VALUE ALL X”1B”. 
200878 03 FILLER PIC X(8481) VALUE ALL X”03”. 
200888 83 FILLER PIC X(8881) VALUE ALL X”d8”. 
800898 83 FILLER PIC X(8082) VALUE ALL X”03”. 
288908 91 PGMdB-DH 

080910 03 PGMOB-BR-D1D1 PIC X(BOd8d) VALUE " gm 


9-41 


Demonstrationsprogramme 


800920- 
800930 
800940 
0880958 
200968 
2888978 
000980 
808998 
201008 
BH1B1D 
201020 
881038 
281040 
B01050- 
BA1068 
801070 
201080 
291090 
801188 
BD1110 
881120 
881130 
BO1140 
81158 
001160 
B81170 
801188 
Ba1190 
801200 
BB1210- 
091229 
091230 
081240 
091259 
881260 
801278 
081280 
801298 
801300 
801318 
801320- 
801338 
081340- 
801359 
201360 
801378 
B01380- 
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03 
03 
03 
03 
03 
03 
03 
03 
03 
03 
83 
03 
03 
03 
03 
03 
03 
03 
03 
03 
03 
83 
03 
03 
03 
03 
03 
Ö3 
03 
03 
03 
03 
03 
03 
03 
03 
03 
03 
"N 
23 
03 
d3 


PGMBd8-08-8201 
FILLER 
PGMd8-Bd-0280 
PGMd8-88-0301 
FILLER 
PGMÖ8-08-0328 
FILLER 
PGMd8-20-0380 
PGMd8-00-0491 
FILLER 
PGMO8-80-0480 
PGMd8-08-9581 


PGMdB-B8-8681 
FILLER 
PGMOB-Rd-0680 
PGMd8-08-0701 
FILLER 
PGMdB-OD-0789 
PGMO8-B8-0801 
FILLER 
PGMdB-BR-H88D 
PGMOB-88-0901 
FILLER 
PGMAd8B-08-08939 
FILLER 
PGMOB-BB-NI8D 
PGMd8S-B8-1001 
(ein/aus) 
FILLER 
PGMO8-LD-1080 
PGMdB-88-1101 
FILLER 
PGMO8-B8-1139 
FILLER 
PGMO8-QB-1180 
PGMd8B-dB-1201 
FILLER 
PGMdB-88-1239 


PGMd8-88-1381 
(ein/aus) 

PGMO8B-98-1401 
FILLER 

PGMdB-Q8-1439 


u 


PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 


PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 


I F2 | 


PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
I". 


PIC 


| F4 - 


PIC 
PIC 
PIC 


X(8881) 
X(8078). 
X(8881) 
X(8881) 
X(8026). 
X(8016) 
X(8836). 
X(8881) 
X(0881) 
X(0878). 
X(8881) 
X(dd8B) 


VALUE "|". 


VALUE "|". 
VALUE "|". 


VALUE 


VALUE "|". 
VALUE "|". 


VALUE ”|”. 


VALUE [mm 


X(8881) VALUE "Ir. 
X(0878). 
X(8801) 
X(8801) 
X(8078). 
X(8891) 
X(8881) 
X(8878). 
X(8801) 
X(8808) 
X(0838). 
X(2006) 
X(8835). 
X(8881) VALUE ”I”. 

X(8860) VALUE "| | F1 | 

Seitenvorschub”. 

X(8819). 
X(8881) 
X(0888) 
X(8030). 
X(8806) 
X(8035). 
X(8881) 
X(80808) 
X(8838). 
X(8942) 


VALUE "|". 
VALUE "|". 


VALUE 
VALUE 


VALUE 
VALUE 


VALUE "m". 


Doppeldruck 


VALUE 
VALUE 


"| [. " 
VALUE 


VALUE 
VALUE 


VALUE "pm 


X(0888) VALUE "| | F3 | Unterstriche 
Probetext drucken I 1”. 

x(8808) VALUE "| —d". 

X(0038). 


X(8042) VALUE 7 m—————nnn 


801398 
801408 
BA1410 
881429 
801430 
D81448 
BO1458- 
0801468 
881478 
201480 
201490 
281509 
BO1518 
881528 
081539 
801549 
881558 
281568 
881578 
081588 
B81598- 
001689 
801610 
881628 
001630 
001648 
001650 
001668 
801670 
001680 
201698- 
881708 
2881710 
081728 
001738 
881740 
801758 
801768 
801778 
Bd1788 
801798 
B81808 
B81810- 


801828 81 


001830 
001840 
001858 


Dr ————— en] 
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"| | F? | Breitschrift 


"| L I" 


Kleinschrift 


03 PGMB8-BB-1581 PIC X(0808) VALUE 

83 FILLER PIC X(8838). 

03 PGMd8-89-1539 PIC X(8891) VALUE 

83 FILLER PIC X(8837). 

d3 PGMd8-08-1577 PIC X(8884) VALUE 

03 PGMB8-BB-1681 PIC X(8039) VALUE 

"n (ein/aus) I”. 

83 FILLER PIC X(8837). 

03 PGMÖ8-08-1677 PIC X(0004) VALUE 

83 PGMd8-D8-1781 PIC X(0088) VALUE 

03 FILLER PIC X(8838). 

03 PGMd8-88-1739 PIC X(B081) VALUE 

83 FILLER PIC X(8837). 

83 PGMB8-89-1777 PIC X(0884) VALUE 

03 PGMÖ8-BAB-1801 PIC X(0808) VALUE 

83 FILLER PIC X(8838). 

B3 PGMOB-BD-1839 PIC X(8881) VALUE 

83 FILLER PIC X(8837). 

03 PGMd8-88-1877 PIC X(8084) VALUE 

83 PGMdB-DB-1981 PIC X(0Bd8d) VALUE 

” (ein/aus) 

d3 PGMdB-DR-2001 PIC X(B088) VALUE 

83 FILLER PIC X(8871). 

03 PGMO8-Od-2080 PIC X(B881) VALUE 

ß3 PGMd8s-Qd-2101 PIC X(00de) VALUE 

83 FILLER PIC X(8830). 

83 PGMd8-88-2139 PIC X(0886) VALUE 

83 FILLER PIC X(8835). 

D3 PGMO8-BB-21808 PIC X(BAB1) VALUE 

03 PGMd8-B8-2281 PIC X(0050) VALUE 

” (ein/aus) | Esc| Ende”. 

83 FILLER PIC X(8829). 

03 PGMd8-00-2288 PIC X(8B81) VALUE 

03 PGMd8-08-2301 PIC X(0888) VALUE 

83 FILLER PIC X(80838). 

03 PGM8-08-2339 PIC X(8886) VALUE 

83 FILLER PIC X(8835). 

03 PGMd8-Dd-2388 PIC X(8881) VALUE 

83 PGMB8-OB-2401 PIC X(B881) VALUE 

83 FILLER PIC X(8878). 

83 PGMd8-DB-2488 PIC X(Bdd1) VALUE 

03 PGMd8-80-2501 PIC X(088d) VALUE 

” J ” 
PGMd8-81 REDEFINES PGMdB-0B 

83 FILLER PIC X(1159). 

03 PGMd8-81-1548 PIC X(8837). 

83 FILLER PIC X(8843). 
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801868 B3 PGMÖ8-01-1648 PIC X(8837). 


891870 83 FILLER PIC X(8843). 
01880 03 PGMd8-91-1748 PIC X(8837). 
081898 83 FILLER PIC X(8843). 


881900 03 PGMOB-B1-1840 PIC X(8837). 

80191 BGB SGB RRBRBRBRERRBEIGBREIBEGBREIREEBBEGEBEGBEEIGEBIGBIIEIEIR EN EN 
201928 PROCEDURE DIVISION. 

881930 PROGRAMM-STEUERUNG SECTION. 

281940 PR-1BD0. 

281958 PERFORM VORLAUF. 


881968 PERFORM VERARBEITUNG UNTIL TASTEN-NR = 18. 
291978 CLOSE AUSGABE. 

881988 PR-9999. 

281999 EXIT PROGRAM. 


802009 STOP RUN. 

90201 033333 B BB BBRRRRBBBREBBIBBERBBBBBEBBRBIBEBERREEBEREEEIHEIIEN 
8082028 VORLAUF SECTION. 

202038 VOR-10888. 

202040 OPEN OUTPUT AUSGABE 

802050 DISPLAY SPACE UPON CRT. 

002068 MOVE 2888 TO LAENGE. 

002070 MOVE 1 TO BILDSCHIRM-POS PUFFER-POS. 

202080 CALL X”BO” USING TASTEN-PROGRAMMIERUNG TASTEN-TABELLE. 


002098 

002100%*--- ATTRIBUTE SCHREIBEN 

882110 CALL EIN-AUSGABE USING SCHREIBEN-ATTR FORM-PARAMETER 
882120 PGMd8-BR-ATTR. 

0802138*--- TEXT SCHREIBEN 

002140 CALL EIN-AUSGABE USING SCHREIBEN-ZEICHEN FORM-PARAMETER 
082158 PGMB8-B0. 

282160 


0082178 VOR-9999. 

002188 EXIT. 

88219033330 BSBBRBRRRRRRBBBEIBERBRBEBGBBBBBBBBBBBBBRBBBEBBGRBBBERGRERISEISGEN 
882288 VERARBEITUNG SECTION. 

082218 VER-1080. 


002220 ACCEPT PGMB8-81 FROM CRT. 

202230 

002240 IF TASTEN-NR = 1 

202258 

002269 MOVE 746 TO E-BILDSCHIRM-POS 
002270 IF DD-STATUS = ® 

002280 MOVE X”1B47” TO A-SATZ 
202298 WRITE A-SATZ 

002309 MOVE 1 TO DD-STATUS 

082319 CALL X”B7” USING SCHREIBEN-ATTR EIN-AUS-PARAM EIN-ATTR 
002320 
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802338 
002340 
002358 
002368 
002378 
202388 
002398 
002408 
802410 
002420 
802430 
002440 
002450 
002460 
002478 
002489 
002490 
002508 
002518 
002520 
002538 
002548 
002558 
002568 
082570 
002580 
802598 
002600 
202618 
202628 
002630 
202648 
082659 
002660 
802678 
002680 
002690 
002780 
002718 
002720 
002730 
202740 
002758 
002768 
202779 
002788 
802798 
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ELSE 
MOVE X”1B46” TO A-SATZ 
WRITE A-SATZ 
MOVE 8 TO DD-STATUS 
CALL X”"B7” USING SCHREIBEN-ATTR EIN-AUS-PARAM AUS-ATTR 


ELSE 
IF TASTEN-NR = 3 


MOVE 986 TO E-BILDSCHIRM-POS 
IF UN-STATUS = Q 

MOVE X”"1B2D81” TO A-SATZ 

WRITE A-SATZ 

MOVE 1 TO UN-STATUS 

CALL X”B7” USING SCHREIBEN-ATTR EIN-AUS-PARAM EIN-ATTR 
ELSE 

MOVE X”1B2D88” TO A-SATZ 

WRITE A-SATZ 

MOVE 8 TO UN-STATUS 

CALL X”B7” USING SCHREIBEN-ATTR EIN-AUS-PARAM AUS-ATTR 


ELSE 
IF TASTEN-NR = 5 


MOVE 1226 TO E-BILDSCHIRM-POS 
IF HG-STATUS = 9 

MOVE X”1B45” TO A-SATZ 

WRITE A-SATZ 

MOVE 1 TO HG-STATUS 

CALL X”B7” USING SCHREIBEN-ATTR EIN-AUS-PARAM EIN-ATTR 
ELSE 

MOVE X”1B46” TO A-SATZ 

WRITE A-SATZ 

MOVE 8 TO HG-STATUS 

CALL X”B7” USING SCHREIBEN-ATTR EIN-AUS-PARAM AUS-ATTR 


ELSE 
IF TASTEN-NR = 7 


MOVE 1466 TO E-BILDSCHIRM-POS 
IF BS-STATUS = 

MOVE X”"1B57B1” TO A-SATZ 

WRITE A-SATZ 

MOVE 1 TO BS-STATUS 

CALL X”B7” USING SCHREIBEN-ATTR EIN-AUS-PARAM EIN-ATTR 
ELSE 

MOVE X”"1B57Bß” TO A-SATZ 
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002809 WRITE A-SATZ 

892810 MOVE 8 TO BS-STATUS 

002820 CALL X”B7” USING SCHREIBEN-ATTR EIN-AUS-PARAM AUS-ATTR 
002830 

002840 ELSE 

082858 IF TASTEN-NR = 9 

002860 

082878 MOVE 1786 TO E-BILDSCHIRM-POS 
002880 IF KS-STATUS = 8 

802890 MOVE X”öF” TO A-SATZ 

0802900 WRITE A-SATZ 

002910 MOVE 1 TO KS-STATUS 

002928 CALL X"B7” USING SCHREIBEN-ATTR EIN-AUS-PARAM EIN-ATTR 
0802930 ELSE 

002940 MOVE X”12” TO A-SATZ 

002950 WRITE A-SATZ 

002960 MOVE 8 TO KS-STATUS 

802978 CALL X”B7” USING SCHREIBEN-ATTR EIN-AUS-PARAM AUS-ATTR 
002980 

002998 ELSE 

003089 IF TASTEN-NR = 2 

03010 

003020 MOVE X”8C” TO A-SATZ 

0803030 WRITE A-SATZ 

003040 

803050 ELSE 

803060 IF TASTEN-NR = 4 

003078 MOVE PGMQ8-91-1548 TO A-SATZ 
003080 WRITE A-SATZ 

203090 MOVE PGMd8-81-1648 TO A-SATZ 
803109 WRITE A-SATZ 

D83110 MOVE PGMß8-01-1748 TO A-SATZ 
803120 WRITE A-SATZ 

883130 MOVE PGMd8-81-1848 TO A-SATZ 
083148 WRITE A-SATZ 

003150 ELSE 

003160 IF TASTEN-NR = 8 NEXT SENTENCE 
003170 ELSE CALL X”E5”. 


03188 VER-9999. 
803190 EXIT. 
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Doppeldruck (ein/aus) Seitenvorschub 


Unterstrichen (ein/aus) F4 = Probetext drucken | 


Et 


Hervorgehoben (ein/aus) 
Breitschrift (ein/aus) 


Kleinschrift (ein/aus) Esc 


Dialog-Testlauf (PGM08) 
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PGM09: Setzen und Abfragen des DOS-Returncodes 


208818 IDENTIFICATION DIVISION. 


0000208 PROGRAM-ID. PGMB9. 
200030 AUTHOR. R. HABIB. 
000040 DATE-WRITTEN. 81-81-1987. 


8080850 DATE-COMPILED. B1-Apr-87 19:25. 


WITT ELLESE ES E28 202 20202 202202027202 72 7220272021272 72127272 2727202727202 72721272 0202720212702 021272027202 02702 027220272020. 
VIII EEEE EZ 2020202020202 0272 7027272087202 1272027020272 02 7272027202 2121272727272 7272 7227272727272 727272 21272720202 2122727272202 7: 


WET ES “x 
280090%** PROGRAMMFUNKTION: R% 
VELAL LEE *% 
BBB110** DIESES PROGRAMM DEMONSTRIERT, WIE MAN AUS DEM COBOL-PROGRAMM ** 
DR0120** EINEN DOS-RETURNCODE SETZT ODER LIEST. ”% 
D00130** *% 


VILBETELEEE SZ 220222 20202 2027272720272 2021202720272 72 7272727272 0212121220272 727202 0212027202702 7272127272 7120272 722202 712,2720 
VILHEIEEEE EEE 20202 2 02 2 20202202 2020202 2202020271272 727272 727272727272 7272727272 2727272727272 727272727202 727272020272 02 72727272 
Ö0d1EA ENVIRONMENT DIVISION. 

800178 CONFIGURATION SECTION. 

BOB1Ed SOURCE-COMPUTER. IBM-PC. 

B00190 OBJECT-COMPUTER. IBM-PC. 

000208 SPECIAL-NAMES. 

800218 CONSOLE IS CRT. 

280228 INPUT-OUTPUT SECTION. 

800238 FILE-CONTROL. 


208924 BB BBBEBRIHHHIEEIBIIHIIEIIIIHIIEIIIHIIITEIIIIEIEEIEIIIIIEERIEIIII IHRE 


0208250 DATA DIVISION. 


000269 

008270 WORKING-STORAGE SECTION. 

000280 

000298 081 DOS-CODE-LESEN PIC 99 COMP VALUE 11. 
280308 Bi DOS-CODE-SETZEN PIC 99 COMP VALUE 18. 
BBBd310d Bi DOS-CODE PIC 99 COMP. 

208320 

200330 81 ACCEPT-DOS-CODE PIC 9. 

200340 


WIIBELELLERETTETEET EEE TEE PETE EP ET EEEREERDERERDESDEUELUOUEEEDOEEE 
0800368 PROCEDURE DIVISION. 

000370 PROGRAMM-STEUERUNG SECTION. 

B0038d PR-1D0B. 

800398 PERFORM VERARBEITUNG 5 TIMES. 

000480 PR-9999. 

000410 EXIT PROGRAM. 

000420 STOP RUN. 


(IIESTELLENZ EEE 2020202727272 72 7202720202702 7272020202 020272727272 7272 727202027272 72727272727272727272 727272727272 2727272 727272727 
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000440 VERARBEITUNG SECTION. 
B80458 VER-1080. 


800468 
200478 
800489 
200490 
208500 
888510 
200528 
208530 
200548 
808558 
808560 
808578 
200580 
200590 
B00680 
BDD618 
200628 
280638 


DISPLAY SPACE UPON CRT. 
DISPLAY "DOS-Returncode setzen und lesen” AT 9129. 


CALL X”Bß” USING DOS-CODE-LESEN DOS-CODE. 
MOVE DOS-CODE TO ACCEPT-DOS-CODE. 


DISPLAY "Aktueller DOS-Returncode =" AT 1801. 
DISPLAY ACCEPT-DOS-CODE AT 1835. 


DISPLAY "Neuer DOS-Returncode = ” AT 1291. 
MOVE 8 TO ACCEPT-DOS-CODE. 
ACCEPT ACCEPT-DOS-CODE AT 1235. 


MOVE ACCEPT-DOS-CODE TO DOS-CODE. 
CALL X”"Bß” USING DOS-CODE-SETZEN DOS-CODE. 


VER-9999. 


EXIT. 


DOS-Keturncode setzen und lesen 


Aktueller DOS-Returncode = 


Neuer DOS-Returncode = 


Dialog-Testlauf (PGM09) 
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PGM10: Überlagerungstechniken bei Bildschirm- 
masken/Sichern von Bildschirmmasken 


BBBB1d IDENTIFICATION DIVISION. 


0800208 PROGRAM-ID. PGM1d. 
0308030 AUTHOR. R. HABIB. 
20808048 DATE-WRITTEN. 81-01-1987. 


828050 DATE-COMPILED. B1-Apr-87 19:26. 


IIIITELIE EEE 222222 02 0202027272722 72 2 1212 0127272727272 7272722 202 2127212027272 7272 2727202120202 212 212122022 20202127275 
WEITERES EEE 2 22 0272020272 0272727021272 72 7272020270272 72 727272727212 7272 0202721220202 270202720202 7272 0272027272 127202 0202020272 


BRRHEH** *% 
298090%** PROGRAMMFUNKTION: *% 
WLAR LE *% 
BBB110** DIESES PROGRAMM ZEIGT IHNEN DIE NOTWENDIGE PROGRAMMIER- *% 


BBA120** TECHNIK, UM AM BILDSCHIRM IN VERSCHIEDENEN FENSTERN DATEN *% 
B00130%** EINGEBEN ZU KÖNNEN. DEMONSTRIERT WIRD DABEI, WIE MAN DEN *%* 


DOD140%** AKTUELLEN INHALT DES BILDSCHIRMS (ATTRIBUTE UND TEXTE) *% 
B00150** SICHERN UND WIEDER ANZEIGEN KANN. *% 
DDD16O** xx 


DO 1 7 EEE EHE RICH EIER TEUER EHE HE HEHE RR RER 
WIRST EEE 2 202 202720272 2727272027202 7227202720202 72 0272027272122 7272727272 7272 727202 2027202720272 12720220212 022 02720272 02/,2727 
800198 ENVIRONMENT DIVISION. 

808280 CONFIGURATION SECTION. 

B80218 SOURCE-COMPUTER. IBM-PC. 

800228 OBJECT-COMPUTER. IBM-PC. 

000230 SPECIAL-NAMES. 

000248 CURSOR IS CURSOR-POS, 

800250 CONSOLE IS CRT. 


WILPATELLE EEE EEE 22022 2 2 2 2020272727222 202 22 220272727272 727272727 27272 7121272727202 72 2721202127272 2022127220202 727. 


200278 DATA DIVISION. 


280288 

02080298 WORKING-STORAGE SECTION. 

800308 

BRO310 Bi CURSOR-POS PIC 9(4). 
0800328 81 Fi-CURSOR PIC 9(4). 
2003308 81 F2-CURSOR PIC 9(4). 
200348 81 F3-CURSOR PIC 9(4). 
200358 81 F4-CURSOR PIC 9(4). 
200360 


(IB ELLE SEES 22 2202020202 2020202020272 02 020202 20270270272727 272727127272 7212 7272020272 720202020202702.0202.2027272,2727202275 


B00380* PARAMETER FÜR EIN/AUSGABE VON BILDSCHIRM-ATTRIBUTEN BZW. DATEN * 


00 3 Id HEREIN EEE TEE EEE RR H 


BB0ABR Di EIN-AUSGABE PICX(O) VALUE X”B7”. 
208418 
B00420 Bi SCHREIBEN-ZEICHEN PIC 9(2) COMP VALUE 1. 
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0200438 81 SCHREIBEN-ATTR PIC 9(2) COMP VALUE 3. 
200440 

000450 81 LESEN-ZEICHEN PIC 9(2) COMP VALUE B. 
000460 DI LESEN-ATTR PIC 9(2) COMP VALUE 2. 
200470 

000480 01 FORM-PARAMETER. 

2004ID 03 LAENGE PIC 9(4) COMP. 

800509 03 BILDSCHIRM-POS PIC 9(4) COMP. 

200510 83 PUFFER-POS PIC 9(4) COMP. 

2005280 

208530 

200540 81 SA-FORM-PARAMETER. 

080558 03 SA-LAENGE PIC 9(4) COMP VALUE 2880. 
200568 83 SA-BILDSCHIRM-POS PIC 9(4) COMP VALUE 1. 
200570 03 SA-PUFFER-POS PIC 9(4) COMP VALUE 1. 
005 8 BU BREITER III II II IIIIEI IE IE HEHE II HIERHER 
D00590 Di SAVEI-A PIC X(2888). 

DROD6RD Bi SAVE2-A PIC X(2888). 

BBd6eıd Di SAVE3-A PIC X(2888). 

DBd620 O1 SAVE4-A PIC X(2088). 

000630 

D00640 Bi SAVEI-Z PIC X(2888). 

000658 D1 SAVE2-Z PIC X(2808). 

B0066Q Bi SAVE3-Z PIC X(20888). 

D00678 Di SAVE4-Z PIC X(20088). 


00681 PH BB BB BRIRBEIBRRIHBIHIHEIHHIGOTIENEIETEIEEIEIERIEIERIIEE IE IERR 


D00698 Di TASTEN-PROGRAMMIERUNG PIC 99 COMP VALUE BD. 
Don7ER 81 FI-TASTE. 


200710 083 TASTEN-NR PIC 99 COMP. 
000720% FUNKTIONSTASTE Fi 
200730 83 FILLER PIC X(3) VALUE X”020803B”. 


200740% ESCAPE 

800758 03 FILLER PIC X(2) VALUE X”D11B”. 

800760* ENDE-KENNZEICHEN 

800778 83 FILLER PICX VALUE X”08”. 


VIIHETERZEEES SE 2 2 20272720202 2020272020272 027272027272 02 72720272 20272 202 727,2 02.270202 .272 02.202022 0202202202022 022.2 020273 


BadeRnR 81 PGM18-88-ATTR. 


Dn0810 83 FILLER PIC X(0717) VALUE ALL X”03”. 
200820 83 FILLER PIC X(0001) VALUE ALL X”0ß”. 
200830 83 FILLER PIC X(8479) VALUE ALL X”83”. 
000849 03 FILLER PIC X(8001) VALUE ALL X”00”. 
200850 83 FILLER PIC X(8889) VALUE ALL X”03”. 
200860 83 FILLER PIC X(0036) VALUE ALL X”13”. 
800878 83 FILLER PIC X(8834) VALUE ALL X"”03”. 
000889 83 FILLER PIC X(8801) VALUE ALL X”08”. 
0880890 83 FILLER PIC X(28889) VALUE ALL X”03”. 
208908 03 FILLER PIC X(88036) VALUE ALL X”13”. 
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288918 83 FILLER PIC X(8834) VALUE ALL X”03”. 
200920 83 FILLER PIC X(8881) VALUE ALL X”00”. 
800938 83 FILLER PIC X(0089) VALUE ALL X”83”. 
200940 83 FILLER PIC X(0836) VALUE ALL X”13”. 
880958 23 FILLER PIC X(8834) VALUE ALL X”03”. 
888968 83 FILLER PIC X(8881) VALUE ALL X”08”. 
880978 83 FILLER PIC X(8889) VALUE ALL X”83”. 
200980 83 FILLER PIC X(0036) VALUE ALL X”13”. 
208998 83 FILLER PIC X(8834) VALUE ALL X”03”. 
81008 83 FILLER PIC X(8881) VALUE ALL X”88”. 
BR1D10 83 FILLER PIC X(8889) VALUE ALL X"”03”. 
2881029 83 FILLER PIC X(8036) VALUE ALL X”13”. 
281030 83 FILLER PIC X(8354) VALUE ALL X”83”. 
DR1D4D 83 FILLER PIC X(8801) VALUE ALL X”80”. 
081050 83 FILLER PIC X(8882) VALUE ALL X”03”. 


ar PGM18-80 
BB1078 03 __PGMIB-BD-DID1 PIC X(0080) VALUE 7 m———————— 


d81080- nn 
801898 03 PGM1Q-00-8201 PIC X(Bdd1) VALUE ”|”. 

DH1 188 83 FILLER PIC X(8829). 

BDH1110 d3 PGM10-80-0231 PIC X(8014) VALUE "Fenstertechnik”. 
881129 83 FILLER PIC X(8832). 


891130 083 __PGM1D-88-0277 PIC X(8084) VALUE "1 |”. 

B01140 B3 _ PGM1B-B8-0301 PIC X(0088) VALUE * m—— 
BDIISD- Mm 111, 
801168 03 __PGMIO-D0-0401 PIC X(0801) VALUE "|". 

881170 83 FILLER PIC X(0078). 

D01180 83 __PGM1G-0B-0480 PIC X(BR01) VALUE "|". 

881198 03 __PGM1S-88-0581 PIC X(B281) VALUE "|". 

801200 83 FILLER PIC X(2078). 

881210 083 __PGM1G-88-0588 PIC X(B021) VALUE "|". 

881220 83 _ PGM1G-BB-B6B1 PIC X(D081) VALUE "|". 

801230 83 FILLER PIC X(0878). 

001248 83 _ PGMIB-0B-0680 PIC X(B201) VALUE "|. 

881258 03 _PGMIB-88-0781 PIC X(8801) VALUE "|". 


801268 83 FILLER PIC X(8878). 
201278 83 PGM10-00-0788 PIC X(BAd1) VALUE "|". 
091280 83 PGM10-28-Q8d1ı PIC X(BAB1) VALUE "|". 
081298 83 FILLER PIC X(8878). 


881308 83 PGM1D-DQd-Desd PIC X(BBd1) VALUE ”|”. 
DR1310 03 PGM10-88-0901 PIC X(0007) VALUE "| Text:”. 
801320 83 FILLER PIC X(8872). 

881338 03 PGMIA-0D-0980 PIC X(B801) VALUE "|". 
801340 03 PGM12-B8-1891 PIC X(BBD1) VALUE "|". 
8013508 03 FILLER PIC X(0878). 

801368 83 PGM1D-88-1088 PIC X(B881) VALUE "|". 
801370 B3 PGM1B-88-1101 PIC X(2881) VALUE "]”. 
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001380 83 FILLER PIC X(8078). 

801398 03 PGMiA-Bd-1188 PIC X(BBd1) VALUE "|”. 
801408 B3 PGM18-80-1281 PIC X(B0d1) VALUE "|". 
881410 83 FILLER PIC X(8078). 

081420 03 PGM19-80-1280 PIC X(B8d1) VALUE "|". 
001430 03 PGM10-00-1381 PIC X(Bdd1) VALUE "|". 
B01440 83 FILLER PIC X(8878). 

001450 03 PGMI0-Bd-1380 PIC X(OBd1) VALUE "|". 
001468 03 PGM1B-Bd-1481 PIC X(BBd1) VALUE ”|”. 
081470 83 FILLER PIC X(8878). 

001480 03 PGM10-00-1480 PIC X(B801) VALUE "|". 
001490 03 PGM18-08-1501 PIC X(8801) VALUE "|". 
0891508 83 FILLER PIC X(8078). 

881518 03 PGM18-08-1588 PIC X(Q@081) VALUE "|" 
291528 d3 PGMIA-BA-1601 PIC X(BBd1) VALUE "|". 
0801530 83 FILLER PIC X(8078). 

01540 B3 PGM10-08-1680 PIC X(B001) VALUE "|". 
801550 83 PGM10-DA-1781 PIC X(Bdg1) VALUE "|". 
B01568 83 FILLER PIC X(8078). 

801578 03 PGM10-8d-1780 PIC X(Bdd1) VALUE "|". 
881588 03 PGM10-Ad-1801 PIC X(Bd01) VALUE ”]”. 
891590 83 FILLER PIC X(8878). 

201609 83 PGM1B-AB-1880 PIC X(Q0d1) VALUE "|". 
201610 B3 PGM19-BA-1901 PIC X(Bdd1) VALUE ”|”. 
001629 03 FILLER PIC X(8878). 

801630 B3 PGM10-08-1980 PIC X(B8B1) VALUE ”|”. 
001640 03 PGM10-0d-2081 PIC X(Bdd1) VALUE "|". 
001650 83 FILLER PIC X(8878). 

B01660 03 PGMID-Bd-2088 PIC X(BR01) VALUE "|". 
891678 B3 PGM18-80-2181 PIC X(B8d1) VALUE ”|”. 
01680 03 FILLER PIC X(8878). 

001690 03 PGM10-80-2180 PIC X(BAd1) VALUE "|". 
891708 B3 PGM10-08-2281 PIC X(B801) VALUE "|". 
881710 83 FILLER PIC X(08078). 

891720 83 PGM18-00-2280 PIC X(0081) VALUE "|". 
091739 03 PGM19-08-2301 PIC X(0080) VALUE " m——m———————— 


081748- tee | ” 


881758 03 PGM10-80-2481 PIC X(8038) VALUE "| Fi = Fenster auf 
881768- "Esc = Fenster zu”. 

801778 83 FILLER PIC X(8841). 

001780 83 PGM10-80-2488 PIC X(DdB1) VALUE ”]”. 

891798 03 PGMIQ-B8-2501 PIC X(0080) VALUE ” 

D01808- Pan = : | nm 

BH18108 91 PGM18-91 REDEFINES PGM1d-08 

001820 83 FILLER PIC X(1287). 

001830 03 PGMI8-81-1608 PIC X(8036). 

001848 03 FILLER PIC X(0944). 


Demonstrationsprogramme 


081858 
091868 
081878 
001880 
001890 
801908 
CO1I18 
801938 
D01940 
801958 
801968 
801978 
281980 
001990 
002008 
082010 
202020 
002030 
202040 
802050 
002060 
802070 
002080 
002098 
092108 
802118 
882120 
002130 
082140 
202150 
002160 
002178 
002180 
202198 
202208 
802210 
002220 
002238 
802240 
202250 
802260 
002278 
002280 
002298 
202308 
882310 
002329 
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91 


03 
83 
03 
03 
83 
03 
03 


03 
03 
03 
D3 
03 
83 
03 
D3 
83 
03 
03 
03 
03 
03 
B3 
83 
83 
B3 
03 
03 
03 
03 
03 
D3 
03 
03 
D3 
B3 
03 
03 
83 
03 
83 
03 
83 
03 
83 
03 
03 


PGM18-01-1788 


FILLER 


PGM18-01-18898 


FILLER 


PGM18-01-1988 


FILLER 


PGM18-81-2008 
PGM1DA-BQ-ATTR. 


FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 


PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 


PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 


X(8036). 
x(8844). 
X(8036). 
X(0844). 
x(8036). 
X(8844). 
X(8036). 


X(8729) 
X(0861) 
X(8019) 
X(8881) 
X(8057) 
X(8881) 
X(0001) 
X(8881) 
X(8819) 
X(8881) 
X(8881) 
X(8885) 
X(8853) 
X(8881) 
X(8919) 
X(8881) 
X(0059) 
X(8881) 
X(8819) 
X(8081) 
X(8801) 
X(8057) 
X(8881) 
X(8801) 
X(8819) 
X(8801) 
X(8881) 
X(8857) 
X(0881) 
X(0801) 
X(8819) 
X(8801) 
X(0881) 
X(8057) 
X(0881) 
X(8001) 
X(8819) 
X(8881) 
X(8801) 


VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 


ALL 
ALL 
ALL 
ALL 
ALL 
ALL 
ALL 
ALL 
ALL 
ALL 
ALL 
ALL 
ALL 
ALL 
ALL 
ALL 
ALL 
ALL 
ALL 
ALL 
ALL 
ALL 
ALL 
ALL 
ALL 
ALL 
ALL 
ALL 
ALL 
ALL 
ALL 
ALL 
ALL 
ALL 
ALL 
ALL 
ALL 
ALL 
ALL 


X”06”. 
X”DCc”. 
X"06”. 
X”ÖCc”. 
X”d6”. 
X”dc”. 
X”D6”. 
X”dc”. 
X”"Dd6”. 
X”dc”. 
X”Dd6”. 
X”DCc”. 
X”d6”. 
X”DdCc”. 
X”D6”. 
X”DCc”. 
X”D6”. 
X”dCc”. 
x”D6”. 
X"dC”. 
x”"06”. 
X”46”. 
X”"06”. 
X”Ddc”. 
x”06”. 
X”öc”. 
X”Dd6”. 
X”46”. 
x”d6”. 
X”dc”, 
x”d6”. 
X”DCc”. 
X”d6”. 
X”46”. 
X”D6”. 
X”dc”. 
Xx”06”. 
X”dc”. 
X”d6”. 
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002338 83 FILLER PIC X(8057) VALUE ALL X”46”. 
002340 83 FILLER PIC X(2081) VALUE ALL X”86”. 
002358 83 FILLER PIC X(0881) VALUE ALL X”BC”. 
002368 83 FILLER PIC X(2019) VALUE ALL X”06”. 
002370 83 FILLER PIC X(0861) VALUE ALL X”8C”. 
002388 83 FILLER PIC X(0578) VALUE ALL X"B6”. 
202398 81 PCMIDA-DE 

002408 83 FILLER PIC X(0729). 

002418 83 PGMIBA-BB-101B PIC X(BB61) VALUE * m—————n 
D02425- mm 
802438 83 FILLER PIC X(2819). 

002440 03 PGMIBA-BB-1118 PIC X(8801) VALUE "|". 
062458 083 FILLER PIC X(2857). 

002468 03 _PGMIBA-D-1168 PIC X(8003) VALUE "2 |”. 
002478 83 FILLER PIC X(8619). 

002488 03  PGMIBA-08-1218 PIC X(8807) VALUE ”| Text:”. 
002490 83 FILLER PIC X(8853). 

082508 03  PCGMIBA-08-1278 PIC X(8801) VALUE "|". 
882510 83 FILLER PIC X(2819). 

082528 03  PGMIBA-0B-1318 PIC X(B801) VALUE "|". 
062530 83 FILLER PIC X(2859). 

002540 B3 PGMIBA-BB-1378 PIC X(B881) VALUE |”. 
862558 83 FILLER PIC X(2819). 

802568 03  PGMIGA-BB-1418 PIC X(B001) VALUE "|". 
802578 83 FILLER PIC X(2859). 

002588 B3 _PGMIBA-8B-1470 PIC X(8081) VALUE "|". 
002598 83 FILLER PIC X(8819). 

82608 03 _PGMIDA-D8-1518 PIC X(2081) VALUE "|". 
002618 83 FILLER PIC X(0859). 

002628 83  PGMIBA-88-1578 PIC X(B001) VALUE "|". 
002638 83 FILLER PIC X(2819). 

002648 63  PGMIBA-88-1618 PIC X(B@81) VALUE "]”. 
002658 83 FILLER PIC X(8659). 

002668 03 PGMIDA-D0-1678 PIC X(B081) VALUE "|". 
002678 83 FILLER PIC X(8819). 

082688 03  PGMIBA-8B-1718 PIC X(B801) VALUE "|". 
002698 83 FILLER PIC X(8659). 

882708 03  PGMIBA-88-1778 PIC X(B281) VALUE "|". 
882718 83 FILLER PIC X(2019). 

082728 03 PGMIDA-DO-1818 PIC X(DB61) VALUE "Lu 
002736 mm 
002748 83 FILLER PIC X(B818). 

002758 Di PCGMIBA-BI REDEFINES PGMIBA-BB 

802768 83 FILLER PIC X(1851). 

002778 83 PGMIBA-91-1412 PIC X(0857). 

002788 83 FILLER PIC X(2823). 

802798 83 PGMIBA-B1-1512 PIC X(2857). 
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002800 
002810 
002820 
082830 


202858 91 


002860 
802870 
002880 
002898 
802980 
802910 
202928 
802938 
202940 
802950 
002969 
002978 
882980 
202998 
803000 
203019 
803028 
003038 
003040 
803058 
0803060 
203079 
803089 
003090 
803108 
003110 
003120 


283130 01 


203148 
203150 
883168- 
803178 
003180 
0803198 
203208 
803219 
0053229 
003238 
203248 
003250 
003260 
203270 
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83 FILLER 
ß3 PGMIBA-B1-1612 
83 FILLER 
83  PGMIBA-81-1712 
PGMIQB-BQd-ATTR. 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
83 FILLER 
83 FILLER 
83 FILLER 
03 FILLER 
PGM18B-00 
83 FILLER 
03 _PGMIOB-8B-0528 
83 FILLER 
83 _PGMIOB-08-0620 
83 FILLER 
83 _PGMIBdB-B8-0648 
83 FILLER 
03 _PGMIOB-0Q-0728 
83 FILLER 


03 
83 
03 
83 
03 
D3 
03 
03 
D3 
03 
83 
03 
B3 
D3 
83 
03 
03 
03 
83 
03 
03 
B3 
03 


03 _PGMIOB-08-0758 
83 FILLER 
03 _PGMIOB-0D-0820 


083 FILLER 


PIC 
PIC 
PIC 
PIC 


PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 


PIC 
PIC 


PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 


X(8823). 
X(8857). 
X(8823). 
X(8857). 


X(8661) 
X(8827) 
X(8053) 
X(8827) 
X(8053) 
X(8827) 
X(8853) 
X(8827) 
X(8053) 
X(0827) 
X(8853) 
X(0827) 
X(0053) 
X(8827) 
X(8053) 
X(8827) 
X(8853) 
X(80827) 
X(8053) 
X(2027) 
X(8053) 
X(8827) 
X(8853) 
X(8827) 
X(8853) 
X(0827) 
X(9352) 


X(8339). 


X(0831) 


X(0849). 


X(8891) 


X(8827). 


X(0083) 


X(0049). 


X(8887) 


X(8823). 


X(8801) 


X(8849). 


X(8801) 


X(0829). 


VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 


VALUE 


VALUE 


VALUE 


VALUE 


VALUE 


VALUE 


X”Dd6”. 
X”60”. 
X”d6”. 
X”60”. 
X”d6”. 
X”60”. 
xX”D6”. 
X”60”. 
X”D6”. 
X”60”. 
X”06”. 
X”60”. 
X”D6”. 
X”60”. 
x”d6”. 
X”60”. 
X”"Dd6”. 
X”60”. 
X”D6”. 
X”6ß”. 
X”06”. 
X”60”. 
X”D6”. 
X”60”. 
x”D6”. 
X”60”. 
X”d6”. 


.[m. 
"3 |”. 

"| Text:”. 
“jr. 

.r. 
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003289 03 _PGMIBB-BB-D850 PIC X(BBB1) VALUE "|". 


203290 03 FILLER PIC X(8049). 
003300 03 _PCGMIOB-00-0928 PIC X(BBB1) VALUE "|". 
203310 03 FILLER PIC X(8829). 
203329 03  _PGMIOB-DA-0958 PIC X(ddd1) VALUE "|". 
003330 03 FILLER PIC X(8049). 
003340 03 _PCGMIOB-00-1028 PIC X(B8d1) VALUE "|". 
003358 03 FILLER PIC X(8829). 
003369 03  PGMIBB-BB-1850 PIC X(BBd1) VALUE "|". 
203379 03 FILLER PIC X(8949). 
203380 03 PGMIEB-BÖ-1120 PIC X(B2M1) VALUE "|". 
203390 03 FILLER PIC X(8829). 
003400 03  PGMIAB-Ad-1158 PIC X(B801) VALUE "|". 
003410 03 FILLER PIC X(9849). 
003420 03 _PGMIOB-00-1220 PIC X(Bddı) VALUE "|". 
003430 03 FILLER PIC X(8829). 
003440 03 _PCGMIBB-00-1258 PIC X(B881) VALUE "|". 
003450 03 FILLER PIC X(8849). 
003460 03 _PCGMI@B-00-1320 PIC X(8881) VALUE "|". 
003479 83 FILLER PIC X(8829). 
003480 03 PGMIGB-BB-1358 PIC X(8001) VALUE "|". 
203490 03 FILLER PIC X(8849). 
003500 03  PGMIGB-BB-1428 PIC X(B881) VALUE "|". 
003518 03 FILLER PIC X(8929). 
203520 03  PGMIBB-B8-1458 PIC X(B881) VALUE "|". 
203539 03 FILLER PIC X(8849). 
003540 03  PGMIBB-B8-1528 PIC X(8081) VALUE "|". 
203558 83 FILLER PIC X(8829). 
203560 03  PGMIBB-BB-1558 PIC X(8881) VALUE "|". 
203578 03 FILLER PIC X(8949). 
003580 03 _PCGMIOB-86-1628 PIC X(BAg1) VALUE "|". 
003590 03 FILLER PIC X(8829). 
003600 03 PGMIBB-BB-1658 PIC X(8881) VALUE "|". 
003618 83 FILLER PIC X(8849). 
003628 03 _PCGMIOB-00-1728 PIC X(B881) VALUE "|". 
003638 03 FILLER PIC X(8829). 
203640 03 _PCGMIOB-88-1758 PIC X(BQ91) VALUE "|". 
203650 03 FILLER PIC X(8849). 
003668 03  _PGMIDB-BB-1828 PIC X(8801) VALUE "|". 
003678 03 FILLER PIC X(8829). 
003680 03 _PCGMIBB-B0-1850 PIC X(Bdd1) VALUE "|". 
003690 03 FILLER PIC X(8049). 
003708 03  PGMIBB-BB-1928 PIC X(B881) VALUE "|". 
083710 83 FILLER PIC X(8829). 
203728 03 _PCMIBB-BB-1959 PIC X(0001) VALUE "|". 
003730 83 FILLER PIC X(8849). 


003749 03  PGMIBB-08-2028 PIC X(Bdd1) VALUE "|". 
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803758 
003768 
803778 
003788 
003798 
803808 
203818 
003820 
803830 
203840 
203858 
003860 
803878- 
003888 
803898 91 
203909 
803919 
903928 
803938 
003940 
803958 
003968 
003978 
003980 
203998 
804008 
004818 
804028 
004038 
004040 
804050 
804068 
004079 
004080 
004098 
004180 
B04110 
084128 
084130 
004140 
2084150 
084178 81 
004180 
804190 
004200 
084219 
004220 
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83 FILLER PIC 
03 _PGMIBB-B0-2058 PIC 
83 FILLER PIC 
03 _PGMIBB-88-2128 PIC 
83 FILLER PIC 
03 _PGMIOB-B8-2158 PIC 
83 FILLER PIC 
83  PGMIBB-Bd-2228 PIC 
83 FILLER PIC 
03 _PGMIBB-08-2258 PIC 
83 FILLER PIC 
3  PGMIRQB-08-2320 PIC 
FE 1 | , 
83 FILLER PIC 
PGM18B-81 REDEFINES 
83 FILLER PIC 
03 _PGMIBB-01-8922 PIC 
083 FILLER PIC 
83  PGMIBB-d1-1022 PIC 
83 FILLER PIC 
03  PGMIBB-81-1122 PIC 
83 FILLER PIC 
03 _PGMIBB-Q1-1222 PIC 
83 FILLER PIC 
03 PGMIBB-81-1322 PIC 
83 FILLER PIC 
03  PGMIBB-81-1422 PIC 
83 FILLER PIC 
83  PGMIBB-B1-1522 PIC 
83 FILLER PIC 
83 _PGMIBB-B1-1622 PIC 
83 FILLER PIC 
03 _PGMIBB-B1-1722 PIC 
83 FILLER PIC 
83 _PGMIBB-B1-1822 PIC 
83 FILLER PIC 
03 _PGMIBB-B1-1922 PIC 
83 FILLER PIC 
03 _PGMIBB-B1-2822 PIC 
83 FILLER PIC 
03 _PGMIBB-B1-2122 PIC 
PGM10C-O8-ATTR. 
03 FILLER PIC 
83 FILLER PIC 
83 FILLER PIC 
83 FILLER PIC 
83 FILLER PIC 


X(8829). 
X(8801) 
X(8849). 
X(8881) 
X(8829). 
X(8801) 
X(8849). 
X(0081) 
X(80829). 
X(8881) 
X(8849). 
X(8831) VALUE 


VALUE 
VALUE 
VALUE 
VALUE 


VALUE 


X(8830). 
PGM1dB-88 
X(8661). 
X(8827). 
X(8853). 
X(8827). 
X(8853). 
X(8827). 
X(8853). 
X(8827). 
X(8853). 
X(8827). 
(80853). 
X(8827). 
X(8053). 
X(8827). 
X(0853). 
(8027). 
X(8853). 
X(8827). 
X(8853). 
X(8827). 
X(8053). 
X(8827). 
X(80853). 
X(8827). 
X(8853). 
X(8827). 


"L 


X(8999) 
X(0826) 
X(8054) 
X(8881) 
X(8881) 


VALUE ALL X”06”. 
VALUE ALL X”05”. 
VALUE ALL X”d6”. 
VALUE ALL X”085”. 
VALUE ALL X”86”. 
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004230 683 FILLER PIC X(8885) VALUE ALL X”85”. 
B04248 83 FILLER PIC X(8816) VALUE ALL X”86”. 
00425580 83 FILLER PIC X(B881) VALUE ALL X”85”. 
004268 83 FILLER PIC X(8881) VALUE ALL X”86”. 
004270 683 FILLER PIC X(B881) VALUE ALL X”85”. 
004286 683 FILLER PIC X(8854) VALUE ALL X”86”. 
004298 683 FILLER PIC X(8881) VALUE ALL X”85”. 
004300 83 FILLER PIC X(0624) VALUE ALL X”d6”. 
004310 83 FILLER PIC X(8001) VALUE ALL X”05”. 
004320 83 FILLER PIC X(8054) VALUE ALL X”d6”. 
004338 83 FILLER PIC X(8001) VALUE ALL X”05”. 
004340 83 FILLER PIC X(8081) VALUE ALL X”06”. 
004350 83 FILLER PIC X(8822) VALUE ALL X”5B”. 
064368 83 FILLER PIC X(BBB1) VALUE ALL X”86”. 
004378 83 FILLER PIC X(8001) VALUE ALL X”05”. 
0043806 83 FILLER PIC X(8854) VALUE ALL X”86”. 
064390 683 FILLER PIC X(8881) VALUE ALL X”85”. 
B04400 83 FILLER PIC X(B881) VALUE ALL X”B6”. 
064416 683 FILLER PIC X(8822) VALUE ALL X”5B”. 
004428 83 FILLER PIC X(8801) VALUE ALL X”6”. 
0044380 03 FILLER PIC X(B881) VALUE ALL X”05”. 
264448 83 FILLER PIC X(8854) VALUE ALL X”86”. 
004458 83 FILLER PIC X(8801) VALUE ALL X”05”. 
004460 83 FILLER PIC X(8801) VALUE ALL X”06”. 
004478 83 FILLER PIC X(8822) VALUE ALL X”5B”. 
004480 83 FILLER PIC X(0001) VALUE ALL X”06”. 
004490 83 FILLER PIC X(8881) VALUE ALL X”05”. 
004508 83 FILLER PIC X(8054) VALUE ALL X”06”. 
204518 83 FILLER PIC X(8081) VALUE ALL X”05”. 
004528 83 FILLER PIC X(8881) VALUE ALL X”d6”. 
0045580 83 FILLER PIC X(8822) VALUE ALL X"5B”. 
004546 83 FILLER PIC X(8001) VALUE ALL X”86”. 
604556 83 FILLER PIC X(B881) VALUE ALL X”85”. 
B04560 83 FILLER PIC X(8854) VALUE ALL X”B6”. 
004578 83 FILLER PIC X(B881) VALUE ALL X”05”. 
064560 683 FILLER PIC X(B881) VALUE ALL X”D6”. 
004590 83 FILLER PIC X(8822) VALUE ALL X”5B”. 
B04606 83 FILLER PIC X(B881) VALUE ALL X”86”. 
004618 683 FILLER PIC X(B881) VALUE ALL X”85”. 
004628 83 FILLER PIC X(8854) VALUE ALL X”86”. 
004630 83 FILLER PIC X(2826) VALUE ALL X”85”. 
004646 03 FILLER PIC X(8335) VALUE ALL X”86”. 
004650 Di PGMIGC-BB 

Bed660 BZ FILLER PIC X(8999). 

DO467 0 B3  PGMIEC-BB-1348 PIC X(0026) VALUE "———— 
BBAse- "1". 

B04690 83 FILLER PIC X(8854). 
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004708 03 PGMIDC-BB-1440 PIC X(0987) VALUE ”| Text:”. 


004710 83 FILLER PIC X(8816). 

084720 03 _PGMIBC-BQ-1463 PIC X(B003) VALUE "4 |”. 
004738 83 FILLER PIC X(8854). 

004740 03 _PGMIAC-D9-1548 PIC X(BAB1) VALUE "|". 
804758 03 FILLER PIC X(8824). 

004760 03 _PGMIBC-88-1565 PIC X(Bdd1) VALUE "|". 
004770 83 FILLER PIC X(8854). 

004788 83 PGMIDC-B0-1648 PIC X(ABd1) VALUE "|". 
004798 83 FILLER PIC X(8824). 

004800 03 _PGMIDC-80-1665 PIC X(BBd1) VALUE ”|”. 
004818 83 FILLER PIC X(0854). 

004820 03  PGMIBC-08-1748 PIC X(0881) VALUE ”|”. 
004839 83 FILLER PIC X(0824). 

004840 03 _PGMIBC-80-1765 PIC X(BBdt) VALUE "|". 
004850 83 FILLER PIC X(8854). 

004860 03 _PGMIDC-BD-1840 PIC X(BBD1) VALUE "|". 
004870 83 FILLER PIC X(8824). 

004880 23 _PGMIDC-88-1865 PIC X(Bdd1) VALUE "|". 
004898 83 FILLER PIC X(8854). 

004900 03 _PGMIOC-B8-1948 PIC X(BBd1) VALUE ”|”. 
DD4I1D 3 FILLER PIC X(8824). 

004920 03 _PGMIBC-D8-1965 PIC X(DROB1) VALUE "|". 
804938 83 FILLER PIC X(8854). 

004949 03 _PGMIDC-DB-2048 PIC X(BRB1) VALUE "|". 
004958 83 FILLER PIC X(8824). 

004960 03 PGMIBC-80-2865 PIC X(B881) VALUE ”|”. 
094978 83 FILLER PIC X(8854). 

0804980 03 _PGMIDC-DB-2148 PIC X(BD26) VALUE "Irene 
804990 - Pd”, 

2895000 03 FILLER PIC X(8815). 

BR5A18 B1 PGMI8C-91 REDEFINES PGMIdC-08 
805020 03 FILLER PIC X(1241). 

805030 83 _PGMIBC-81-1642 PIC X(8922). 

B05040 83 FILLER PIC X(8858). 

805058 83 _PGMIBC-81-1742 PIC X(0822). 

805068 83 FILLER PIC X(8858). 

005070 03 _PGMIBC-B1-1842 PIC X(8822). 

005089 83 FILLER PIC X(8858). 

2805098 83 _PGMIBC-01-1942 PIC X(8822). 

0885100 83 FILLER PIC X(8858). 


295110 03 _PGMIBC-B1-2842 PIC X(8822). 
IERPIERLERELEUERET EEE EEEOE SEELE EEE ELELTELELDSEEEELELEEETT EN 
0085130 PROCEDURE DIVISION. 

005140 PROGRAMM-STEUERUNG SECTION. 

085158 PR-1008. 

085160 PERFORM VORLAUF. 
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PERFORM FENSTER1 UNTIL TASTEN-NR = 2. 


B85180 PR-9999. 


895198 
805200 


EXIT PROGRAM. 
STOP RUN. 


80521 HB 3 REITER IEIEIIIIIIIIIIIEIEIEIEIEIEIEHHHI HIHI HHHEHE HEHE HR N 


805220 VORLAUF SECTION. 
005230 VOR-10880. 


005240 
005258 
205268 
805270 
205289 
005290 
005308 
005318 
005329 
005330 
005340 
885350 
205368 
005378 
005380 
805399 
005408 
B85410 
005420 
005438 


CALL X”Bd” USING TASTEN-PROGRAMMIERUNG F1-TASTE. 


DISPLAY SPACE UPON CRT. 

MOVE 1 TO BILDSCHIRM-POS. 

MOVE 1 TO PUFFER-POS. 

MOVE 2000 TO LAENGE. 

CALL EIN-AUSGABE USING SCHREIBEN-ATTR FORM-PARAMETER 
PGM1d-Qd-ATTR. 


CALL EIN-AUSGABE USING SCHREIBEN-ZEICHEN FORM-PARAMETER 
PGM18-08. 


MOVE 8181 TO CURSOR-POS. 


MOVE 1688 TO F1-CURSOR. 
MOVE 1412 TO F2-CURSOR. 
MOVE 8922 TO F3-CURSOR. 
MOVE 1642 TO F4-CURSOR. 


VOR-9999,. 


EXIT. 


WWELLTELEE ESS ES 22 2020202027202 12 2020202720202 02 18 021272727272 7027 27272727272 7272 7272727272 7270272 727202020212 222122027272 727. 


005458 FENSTER SECTION. 
005468 Fi-1000. 


095478 
005488 
005498 
B05588 
805518 
005528 
805538 
005548 
005558 
005569 
805578 
005589 
005598 
005608 
085618 
085628 
005639 


MOVE F1-CURSOR TO CURSOR-POS. 
ACCEPT PGM1Q-81 FROM CRT. 
MOVE CURSOR-POS TO F1-CURSOR. 


IF TASTEN-NR = 1 


CALL EIN-AUSGABE USING LESEN-ATTR SA-FORM-PARAMETER 
SAVE1-A 

CALL EIN-AUSGABE USING LESEN-ZEICHEN SA-FORM-PARAMETER 
SAVE1-Z 

PERFORM FENSTER2 


CALL EIN-AUSGABE USING SCHREIBEN-ATTR SA-FORM-PARAMETER 
SAVEI-A 

CALL EIN-AUSGABE USING SCHREIBEN-ZEICHEN SA-FORM-PARAMETER 
SAVEI-Z. 
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005648 
805650 


F1-9999. 
EXIT. 


80566 3:3: HHEEIEIEIEIIIEIEIIIEIIIIHIIIEIIIIIIEIEIEHEIEIEIEIIEIEIEERE REIT III II III RE 


005670 
B05680 
005690 
205788 
885718 
805720 
205738 
005740 
8085758 
805768 
285778 
805788 


FENSTER2 SECTION. 
F2-1800. 


MOVE 61 TO LAENGE. 
PERFORM SENDEN-FENSTER2 VARYING 
BILDSCHIRM-POS FROM 730 BY 88 
UNTIL BILDSCHIRM-POS > 730 + 8 * 80. 
PERFORM EMPFANGEN-FENSTER2 UNTIL TASTEN-NR = 2. 
MOVE HIGH-VALUE TO TASTEN-NR. 
F2-9999. 
EXIT. 


DOSETIDRRRRRRRRRRRHE TUE EEE EURE KK RE 


805809 
805818 
005820 
005838 
205848 
005850 
005868 
805870 
005889 
205890 


SENDEN-FENSTER2 SECTION. 
SF2-1008. 


MOVE BILDSCHIRM-POS TO PUFFER-POS. 
CALL EIN-AUSGABE USING SCHREIBEN-ATTR FORM-PARAMETER 
PGMIDA-DB-ATTR. 


CALL EIN-AUSGABE USING SCHREIBEN-ZEICHEN FORM-PARAMETER 
PGMIBA-DD. 


SF2-9999. 
EXIT. 


VIERTE EEE 22 22 2020202 2 202720202 2 2 02 202 21212120272 0272 21202021202 727272 2020212 021272.2.2 020202 0272.2 2 20202 0272.2.2 7: 


205910 
005920 
805930 
205948 
805958 
005968 
005978 
805980 
805990 
B06R0R 
BDd6D1D 
886020 
206038 
206040 
806850 
D06060 
806070 
B06088 
006090 
806100 
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EMPFANGEN-FENSTER2 SECTION. 
EF2-1008. 


MOVE F2-CURSOR TO CURSOR- 
ACCEPT PGMIBA-B1 FROM CRT. 


POS. 


MOVE CURSOR-POS TO F2-CURSOR. 


IF TASTEN-NR = |] 


CALL EIN-AUSGABE USING 


CALL EIN-AUSGABE USING 


PERFORM FENSTER3 


CALL EIN-AUSGABE USING 


CALL EIN-AUSGABE USING 


LESEN-ATTR SA-FORM-PARAMETER 
SAVE2-A 

LESEN-ZEICHEN SA-FORM-PARAMETER 
SAVE2-Z 


SCHREIBEN-ATTR SA-FORM-PARAMETER 
SAVE2-A 

SCHREIBEN-ZEICHEN SA-FORM-PARAMETER 
SAVE2-Z. 
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BR6110 EF2-9999. 

286120 EXIT. 

8061 30:33:33 B3 BB RRRRBBRBEEIBBEBRBERBBERBGBBBBBGBBBBBBEEIEREBIEIEBISEISEIRIIEH NEN 
006140 FENSTER3 SECTION. 

B06150 F3-1008. 

806160 MOVE 31 TO LAENGE. 

806178 PERFORM SENDEN-FENSTER3 VARYING 


206180 BILDSCHIRM-POS FROM 340 BY 89 

286198 UNTIL BILDSCHIRM-POS > 348 + 18 * 88. 
206200 

286210 PERFORM EMPFANGEN-FENSTER3 UNTIL TASTEN-NR = 2. 
086220 


006238 MOVE HIGH-VALUE TO TASTEN-NR. 

206240 F3-9999. 

006258 EXIT. 

DIEZEÖHRRRURRER EURER RETTEN TER HEHE RARRICKRR 
006278 SENDEN-FENSTER3 SECTION. 

006280 SF3-1008. 

206298 MOVE BILDSCHIRM-POS TO PUFFER-POS. 

206300 CALL EIN-AUSGABE USING SCHREIBEN-ATTR FORM-PARAMETER 


806310 PGM18B-ÖB-ATTR. 

206320 

006330 CALL EIN-AUSGABE USING SCHREIBEN-ZEICHEN FORM-PARAMETER 
006340 PGM10B-88. 


0086358 SF3-9999. 

08636 EXIT. | 

WIRBULELLEE ES ES ES 2 22 2 2020202020272 72 2 2 020202020202 7272 72720202 20212 202720272 272727212 720272.2 02 202720202 20202 7272.2 75 
006380 EMPFANGEN-FENSTER3 SECTION. 

006390 EF3-1008. 

BD64BR MOVE F3-CURSOR TO CURSOR-POS. 

DB6410 ACCEPT PGMIAB-81 FROM CRT. 

006420 MOVE CURSOR-POS TO F3-CURSOR. 


806430 

006448 IF TASTEN-NR = 1 

006450 

006460 

006478 CALL EIN-AUSGABE USING LESEN-ATTR SA-FORM-PARAMETER 
806488 SAVE3-A 

806498 CALL EIN-AUSGABE USING LESEN-ZEICHEN SA-FORM-PARAMETER 
006500 SAVE3-Z 

086518 

006528 PERFORM FENSTER4 

286538 

006540 CALL EIN-AUSGABE USING SCHREIBEN-ATTR SA-FORM-PARAMETER 
006550 SAVE3-A 

006560 CALL EIN-AUSGABE USING SCHREIBEN-ZEICHEN SA-FORM-PARAMETER 
006570 SAVE3-2. 
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Bd6580 EF3-9999. 

096598 EXIT. 
TIITTERERERELERTERTOEES TEE ELDEU REST ELEUESEEESETELELEEUEUEUEREEEDEEEEN 
806610 FENSTER4 SECTION. 

006628 F4-1000. 

806638 MOVE 26 TO LAENGE. 

006648 PERFORM SENDEN-FENSTER4 VARYING 


006658 BILDSCHIRM-POS FROM 1800 BY 80 

206668 UNTIL BILDSCHIRM-POS > 1000 + 8 * 80. 
806670 

06680 PERFORM EMPFANGEN-FENSTER4 UNTIL TASTEN-NR = 2. 


2806690 MOVE HIGH-VALUE TO TASTEN-NR. 

BB670B F4-9999. 

0886710 EXIT. 

WIIMPIERRERLELES EEE EEE EUER TEUER ELTEREERTERSEEELELERELTTEDENE LET 
886730 SENDEN-FENSTER4 SECTION. 

006748 SF4-1088. 

006758 MOVE BILDSCHIRM-POS TO PUFFER-POS. 

086768 CALL EIN-AUSGABE USING SCHREIBEN-ATTR FORM-PARAMETER 


206778 PGM1dC-B8-ATTR. 

206780 

006799 CALL EIN-AUSGABE USING SCHREIBEN-ZEICHEN FORM-PARAMETER 
206808 PGMIdC-BB. 


BB6810 SF4A-9999. 

006820 EXIT. 
EIRSTERELELLESESERE TER TEREERIO EEE EETUUTELEEEEEUUOEREEREEEELENEN EEE E20 2 
006840 EMPFANGEN-FENSTER4 SECTION. 

006850 EF4-1080. 


006860 MOVE F4-CURSOR TO CGURSOR-POS. 
006870 ACCEPT PGMIBC-B1 FROM CRT. 
006880 MOVE CURSOR-POS TO F4-CURSOR. 
006890 IF TASTEN-NR = 1 CALL X”E5”. 
006908 


B06910 EF4-9999. 
206928 EXIT. 
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| Fenstertechnik 1 


Hier sind wir noch im ersten Fenster 
! 


\ 
’ 
| 


H 


Fi = Fenster auf Esc = Fenster zu | a | 


Dialog-Testlauf (PGM 10) 
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Fenstertechnik 14 


| 


Text: 


Hier sehen Sie das dritte 
Fenster. 


Fi eröffnet 


Text: 


Hier sehen Sie das dritte 
Fenster. 


editieren kann. 


Esc = Fenster zu 


Dialog-Testlauf (PGM10) 
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PGM11: Prüfen, ob der Drucker on-line ist 


880018 IDENTIFICATION DIVISION. 


200020 PROGRAM-ID. PGM11. 
000038 AUTHOR. R. HABIB. 
2000408 DATE-WRITTEN. 81-81-1987. 


2000858 DATE-COMPILED. B1-Apr-87 19:27. 


WISTITEE ES EEE 22 2 2027272272722 27272 021272 272727272 7272027272 027272727272 21272 202720202712 20272027202 0202 02720202202 7202 02703 
DOII 7 DH NEEEKUENIEIEIEK 


D00080*% 


DO0DIH*% 


PROGRAMMFUNKTION: 


DO 100** 


BDD110%*%* 


DOD120*% 
DOH130** 


YIIRETVELEEE SEE 2220202720272 020202 02020202 2027272727272 7227272727272 02020202 212.202 02 020202020202 02020202 202121202 21212.2727 
WIIRETELLES ESS E 2 2 27202720202 2020202020272 7272727272727 272727272 2720202020202 02 020202020202 0212 20202020272 2021272 021272727 


Dd0160 
280178 
B08180 
880199 
200208 
800218 
808228 
208230 


ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE-COMPUTER. IBM-PC. 
OBJECT-COMPUTER. IBM-PC. 
SPECIAL-NAMES. 
CONSOLE IS CRT. 

INPUT-OUTPUT SECTION. 
FILE-CONTROL. 


*% 


DAS PROGRAMM PRÜFT, OB DER DRUCKER ON-LINE BZW. OFF-LINE IST.** 


*% 


000240 HE EEE III EIEIIEIEIEIEIE II III III III II IOIEIE HE 


20082508 DATA DIVISION. 

800260 

08008270 WORKING-STORAGE SECTION. 

200288 

0808298 Bi DRUCKER-TESTEN PIC 99 COMP VALUE 7. 
208308 Bi DRUCKER-STATUS PIC 99 COMP VALUE 9. 
B00d310 88 DRUCKER-ONLINE VALUE 8. 

200328 88 DRUCKER-OFFLINE VALUE 1. 

200330 

080340 Qi TASTEN-PROGRAMMIERUNG PIC 99 COMP VALUE 8. 
0003508 81 TASTEN-TABELLE. 

0088360 03 TASTEN-NR PIC 99 COMP. 

200370% FUNKTIONSTASTEN FI] 

200389 83 FILLER PIC X(3) VALUE X”02003B”. 
208398 03 FILLER PIC X(2) VALUE X”811B”. 
B00400% ENDE-KENNZEICHEN 

000410 83 FILLER PIC X VALUE X”08”. 
008429 

008430 Di DUMMY PICX. 


80844 BY EREREIEIEEIEIEIEIENEIEIEIEHENE NENNE TEEN III III III III II HIHI IEIEHEIEHE HE 
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808458 PROCEDURE DIVISION. 

000460 PROGRAMM-STEUERUNG SECTION. 

B0R47TO PR-1000. 

000480 PERFORM VORLAUF. 

000498 PERFORM VERARBEITUNG UNTIL TASTEN-NR = 2. 
800508 PR-9999. 

728518 EXIT PROGRAM. 

000528 STOP RUN. 

WIEBTELLEEZEE EEE ES 22 22 2202 2 2 2 2 2 2 22 2 2 2 2 2 2 2 2 202 27220202727 2020202020202 1202.22 02.2212 02.2.20202,2.270 
000540 VORLAUF SECTION. 

800558 VOR-1089. 

800568 CALL X”BÖ” USING TASTEN-PROGRAMMIERUNG 
8080570 TASTEN-TABELLE. 

dN0580 DISPLAY SPACE UPON CRT. 

288590 DISPLAY "TESTEN DRUCKER” AT 9130. 

000608 DISPLAY "DRUCKERSTATUS =" AT 1881. 

DB06 18 DISPLAY "F1 = TESTEN ” AT 2581. 

288628 VOR-9999. 

200630 EXIT. 

WETILVEIZE ES 2 2202727202022 120202702712 020272721212 72 1212027212 1272 727202727272 0202 7220227027272 1272721202 727272720202.2 72020202727 
800658 VERARBEITUNG SECTION. 

DOQ66d VER-1000. 


2008670 ACCEPT DUMMY AT 1819. 

200680 

800690 IF TASTEN-NR = 1 

080708 CALL X”BQ” USING DRUCKER-TESTEN DRUCKER-STATUS 
080718 IF DRUCKER-ONLINE DISPLAY "ON-LINE ” AT 1828 

000728 ELSE IF DRUCKER-OFFLINE DISPLAY "OFF-LINE " AT 1820. 


08080738 VER-9999. 
800748 EXIT. 


TESTEN DRUCKER 


DRUCKERSTATUS = ON-LINE 


Fi} = TESTEN 


Dialog-Testlauf (PGM11) 
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PGM12: Menüsteuerung mit invertierten Darstel- 
lungen /Abtasten der Cursorposition 


880018 IDENTIFICATION DIVISION. 


2800208 PROGRAM-ID. PGM12. 
000030 AUTHOR. R. HABIB. 
000048 DATE-WRITTEN. 81-81-1987. 


000058 DATE-COMPILED. B1-Apr-87 19:28. 


WIITIT EEE EZ 22 20232727272 120272702702 22 27272 275127272 212727272 27272727 2722727272722 7272227127272 272,2 272722 2712022027270 
VILTHIEEE ES 22 22 0202020272 2727272702 1272 12727202 2727272 727272727272 72 27272 2 127272727272 7272722727272 2127,22 22 2727220212727 


VWEDETEE *% 
B00090** PROGRAMMFUNKTION: xx 
BAD1NN** xx 
BOB110** DIESES PROGRAMM SIMULIERT DIE UMGEBUNG EINER ANWENDUNG, IN *% 
200120%** DER DER BENUTZER WÄHREND DER EINGABE IN EINER MASKE EINE *% 
DB0130%** BESTIMMTE FUNKTION AUSFÜHREN MÖCHTE. *% 
DRDO140%% *% 


000150%*%* MIT DER F1-TASTE GELANGT DER BENUTZER IN EIN AUSWAHL-MENÜ, xx 
BOD160** WORAUFHIN MIT DEN TASTEN CURSOR-OBEN/CURSOR-UNTEN AUF DIE ”% 
DBDD170** GEWÜNSCHTE FUNKTION POSITIONIERT WIRD, UM SIE ANSCHLIESSEND ** 
D00180%** MIT DER RETURN-TASTE AUSZUWÄHLEN. *% 
DOO1IH** *% 


80.820033 GR BRIBIOBRIHIBEIBTEIGERIGBEIIEIBIGEIBIHIBIBEIBIEIBIIOIIGIIGIIIIGTEIIHHERER RE 
80.021 9:33 9 BREITEREN GIEIEIBIEIBIGEIIGIRIOIIIEIEI III III IHN IIER IE HE 


8008228 ENVIRONMENT DIVISION. 

200238 CONFIGURATION SECTION. 

000240 SOURCE-COMPUTER. IBM-PC. 

800258 OBJECT-COMPUTER. IBM-PC. 

000260 SPECIAL-NAMES. 

088270 CURSOR IS CURSOR-POS, 
200280 CONSOLE IS CRT. 

800298 INPUT-OUTPUT SECTION. 

08003088 FILE-CONTROL. 

DOM 3 10 x 330 3% 3 36 a6 36 36 38 ae 36 3638 3 BEE IEIEIEIENIE BRAIN IEIEIEIEIIIEIEIEIEIIEIEIEI III I IEIEIE HI IEIEIE HE 
8080320 DATA DIVISION. 

200330 

800340 WORKING-STORAGE SECTION. 

880350 

200360 Bi CURSOR-POS. 

008370 85 ZNR PIC 99. 

200380 85 SNR PIC 99. 

880390 


89040 U 3 3 BREI III II IIEIIEIE IE IEIEIETEIIEIEIESEIEIEIENEIE II IEIE III HEHE III HEHE IEHEIC HEN 


D00410* PARAMETER FÜR EIN/AUSGABE VON BILDSCHIRM-ATTRIBUTEN BZW. DATEN * 


2084 PAıka E22 202020272 2720272 2027272727272 7272 72727272 727272720272 7272 72727272 7272727227272 2727272727272 727272727202 727272720272727% 


0004308 Di EIN-AUSGABE PICX(N) VALUE X”B?”. 
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000448 

008458 Di SCHREIBEN-ZEICHEN PIC 9(2) COMP VALUE 1. 

000468 B1 SCHREIBEN-ATTR PIC 9(2) COMP VALUE 3. 

000470 

080488 d1 FORM-PARAMETER. 

000498 03 LAENGE PIC 9(4) COMP. 

YTIEXT) 03 BILDSCHIRM-POS PIC 9(4) COMP. 

088510 03 PUFFER-POS PIC 9(4) COMP. 

000520 

D00538 81 AT-FORM-PARAMETER. 

000540 03 AT-LAENGE PIC 9(4) COMP. 

008558 03 AT-BILDSCHIRM-POS PIC 9(4) COMP. 

080560 03 AT-PUFFER-POS PIC 9(4) COMP. 

208570 

000588 D1 ATTR-NORMAL PIC X(17) VALUE ALL X”03”. 
200590 

DOB6Hd Bi ATTR-INVERTIERT PIC X(17) VALUE ALL X”1B”. 


8086 1 [ukakuE. 2.5.2 208 2022027802202 72 02720272 2727202120272 272 202120272 2720272720272 027202120272 2.2 2202202020202 202027202 72020270 


0806208 Di TASTEN-PROGRAMMIERUNG PIC 99 COMP VALUE B®. 
000630 Di FI-TASTE. 

080640 83 TASTEN-NR PIC 99 COMP. 

B00650* FUNKTIONSTASTE FI 

080660 83 FILLER PIC X(3) VALUE X”02093B”. 

200670* ENDE-KENNZEICHEN 


000680 83 FILLER PICX VALUE X”00”. 
208690 

0007008 81 PFEILE. 

800718 83 PFEIL-TASTE PIC 99 COMP. 

080728 88 PFEIL-OBEN VALUE 1, 3. 

0880730 88 PFEIL-UNTEN VALUE 2, 4. 

000748 


880750* CURSOR-TASTEN 1=0BEN 2=UNTEN 3=LINKS 4=RECHTS 
000768 83 FILLER PIC X(12) VALUE X”820048020085002004B02004D”. 
800778 

200780%* ENDE-KENNZEICHEN 


280799 83 FILLER PICX VALUE X”d0”. 

WIILEVDELEEEES SE E22 202 20202727202 0202727272 7272727272 2721272727202 72727272 21272727272 127,2 7212722202722 2020272 2021270202027 
Bndsıd Di TEXT-NR PIC 99. 

DE 2 EEE RER R 
200848 01 PGM12-88-ATTR. 

000859 83 FILLER PIC X(0572) VALUE ALL X”03”. 

000869 83 FILLER PIC X(8025) VALUE ALL X”IC”. 

2800878 83 FILLER PIC X(0200) VALUE ALL X”03”. 

200880 83 FILLER PIC X(0881) VALUE ALL X”00”. 

YLIERT) 83 FILLER PIC.X(0879) VALUE ALL X”83”. 

880980 83 FILLER PIC X(8801) VALUE ALL X”00”. 

880918 83 FILLER PIC X(8879) VALUE ALL X”83”. 
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000928 03 FILLER PIC X(88d01) VALUE ALL X”O0”. 
800938 03 FILLER PIC X(20889) VALUE ALL X”03”. 
B0094R 83 FILLER PIC X(8836) VALUE ALL X”13”. 
000950 83 FILLER PIC X(8834) VALUE ALL X”03”. 
800960 83 FILLER PIC X(8801) VALUE ALL X”dß”. 
200978 03 FILLER PIC X(0809) VALUE ALL X”03”. 
000980 83 FILLER PIC X(8036) VALUE ALL X”13”. 
200998 83 FILLER PIC X(8834) VALUE ALL X”03”. 
2801000 83 FILLER PIC X(8881) VALUE ALL X”00”. 
D81019 83 FILLER PIC X(0889) VALUE ALL X”03”. 
201028 03 FILLER PIC X(0836) VALUE ALL X”13”. 
2801030 83 FILLER PIC X(8034) VALUE ALL X”03". 
201040 83 FILLER PIC X(8801) VALUE ALL X”Oß”. 
281058 83 FILLER PIC X(0089) VALUE ALL X”83”. 
881860 83 FILLER PIC X(8836) VALUE ALL X”13”. 
081070 03 FILLER PIC X(8834) VALUE ALL X”83”. 
ALT. 83 FILLER PIC X(8081) VALUE ALL X”00”. 
281090 83 FILLER PIC X(8889) VALUE ALL X”03”. 
001108 83 FILLER PIC X(8836) VALUE ALL X”13”. 
BA11180 83 FILLER PIC X(0274) VALUE ALL X”83”. 
081128 83 FILLER PIC X(8001) VALUE ALL X”B0”. 
001130 83 FILLER PIC X(8482) VALUE ALL X”03”. 


Barı4d 91 PGM12-08 

281150 B3 PGM12-09-0101 PIC X(D080) VALUE " gmm—m—m—m————mmmmenmemee 
BA116R- ——— — u ”. 
2881170 d3 PGM12-Dd-82B81 PIC X(BB01) VALUE "|". 

DD1180 83 FILLER PIC X(8078). 

201198 03 PGM12-Md-0280 PIC X(Q081) VALUE "|". 

0891200 03 PGM12-00-0301 PIC X(BAB1) VALUE "|". 


881218 83 FILLER PIC X(8829). 
801220 03 PGM12-00-8331 PIC X(8813) VALUE "Menüsteuerung”. 
801230 83 FILLER PIC X(8836). 


801240 83 PGM12-00-0388 PIC X(Bd01) VALUE "|". 
801259 d3 PGM12-98-0401 PIC X(B881) VALUE ”|”. 
081268 83 FILLER PIC X(0078). 

801270 03 PGM12-08-0488 PIC X(B8d1) VALUE "|". 
801288 03 PGM12-08-0581 PIC X(BD8d) VALUE " Jm————m——————— 
081308 03 PGM12-08-8601 PIC X(8881) 


VALUE ”]”. 


081318 83 FILLER PIC X(8858). 
001328 03 PGM12-08-8652 PIC X(0815) VALUE ”| Auswahl”. 
801330 83 FILLER PIC X(8013). 


BBI31 8 03 PCM12-00-0688 PIC X(BOB1) VALUE "|". 

BBI35 0 83 PCMI2-00-0751 PIC X(B001) VALUE "]”. 

B013686 83 FILLER PIC X(8858). 

BBI37 0 83 PCGMI2-08-0752 PIC X(0029) VALUE " ———————n 
ET Te EEE TU 
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201390 
B01400 
801410 
801420 
001439 
801448 
881450 
0801460 
881470 
001480 
201490 
201588 
881510 
2801520- 
881538 
801540 
881550 
281568 
881578 
801580 
881598 
001689 
081619 
081620 
0801630 
001648 
201650 
001669 
801678 
001680 
801690 
801780 
291710 
001720 
001738 
001748 
881750 
2891768- 
801778 
201780 
2801798 
001808 
801819 
001820 
001830 
001840 
001850 
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03 
03 
03 
B3 
03 
03 
03 
03 
03 
03 
83 
83 
83 
03 
03 
03 
83 
03 
83 
03 
03 
03 
03 
03 
83 
03 
D3 
03 
03 
83 
03 
03 
03 
03 
03 
03 
03 
03 
03 
03 
03 
03 
03 
03 
83 


PGM12-00-0891 
FILLER 
PGM12-98-0852 
FILLER 
PGM12-08-0880 
PGM12-80-9901 
FILLER 
PGM12-08-0952 
FILLER 
PGM12-88-0980 
PGM12-88-1881 
FILLER 
PGM12-08-1852 
PGM12-88-1181 
FILLER 
PGM12-88-1152 
FILLER 
PGM12-80-1180 
PGM12-88-12891 
FILLER 
PGM12-08-1252 
FILLER 
PGMi2-08-1280 
PGM12-88-1301 
FILLER 
PGM12-880-1352 
FILLER 
PGM12-88-1380 
PGM12-88-1401 
FILLER 
PGM12-88-1452 
FILLER 
PGM12-00-1480 
PGM12-908-1501 
FILLER 
PGM12-88-1552 
PGM12-88-1681 
FILLER 
PGM12-08-1652 
FILLER 
PGM12-89-1688 
PGM12-88-1781 
FILLER 
PGM12-88-1752 
FILLER 


PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 


PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 


PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 


X(8801) 


X(8858). 


X(8881) 


X(8827). 


X(8881) 
X(8881) 


X(8850). 


X(8014) 


X(8814). 


X(8881) 
X(8881) 


X(8850). 


X(0829) 


X(8815) 


X(0036). 


X(8812) 


X(8016). 


X(0891) 
X(8881) 


X(8050). 


X(8018) 


X(8818). 


X(8891) 
X(2891) 


X(0058). 


X(8016) 


X(8812). 


X(8881) 
X(8881) 


X(8858). 


X(00818) 


X(0818). 


X(8881) 
X(0881) 


X(8058). 


X(0829) 


X(0881) 


X(0058). 


X(0889) 


X(8819). 


X(8001) 
X(8881) 


X(8850). 


X(8881) 


X(8827). 


VALUE 


VALUE 


VALUE 
VALUE 


VALUE 


VALUE 
VALUE 


VALUE 


VALUE 


VALUE 


VALUE 
VALUE 


VALUE 


VALUE 
VALUE 


VALUE 


VALUE 
VALUE 


VALUE 


VALUE 
VALUE 


VALUE 


VALUE 


VALUE 


VALUE 
VALUE 


VALUE 


Datenbank”. 


Textverarbeitung 


"| Textbaustein:”. 


Graphik”. 


Terminplanung”. 


Kalkulation”. 


Kommunikation”. 


Dienstprogranne 


Ende”. 


001868 
801878 
001880 
001898 
801908 
D1919 
801920 
801938 
D01948 
801958 
881968 
801978 
B01980 
201998 
002008 
0802010 
002020 
0082038- 


002040 81 


802050 
002060 
802078 
002089 
802090 
0902100 
D82110 
002129 
002130 
802140 
282158 
2802169 
802178 
002188 


002208 PROCEDURE DIVISION. 


03 
B3 
03 
03 
03 
03 
83 
83 
03 
03 
03 
03 
03 
03 
03 
03 
03 


PGM12-88-1780 
PGM12-88-1891 


FILLER 


PGM12-08-1852 


FILLER 


PGM12-00-1880 
PGM12-98-19891 


FILLER 


PGM12-98-1952 


FILLER 


PGM12-08-1988 
PGM12-98-2881 


FILLER 


PGM12-99-2852 


FILLER 


PGM12-08-2080 
PGM12-08-2181 


PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 


X(8881) 
X(8801) 


X(085B). 


X(8881) 


X(8827). 


X(8881) 
X(8801) 


X(8058). 


X(8881) 


X(0827). 


X(8881) 
X(8814) 


X(8837). 


X(8801) 


X(8827). 


X(8881) 
X(2080) 


VALUE 
VALUE 


VALUE 


VALUE 
VALUE 


VALUE 


VALUE 
VALUE 


VALUE 


VALUE 
VALUE 
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"| Fi = Ausvahl”. 
"i”. 
"I". 


EEG 


ea  ————————— | ” . 
PGM12-08 


B3 
03 
83 
03 
03 
03 
03 
03 
03 
03 
03 
03 
03 
83 


PGM12-91 


FILLER 


PGM12-91-8813 


FILLER 


PGM12-81-1388 


FILLER 


PGM12-01-1408 


FILLER 


PGM12-91-1508 


FILLER 


PGM12-91-1688 


FILLER 


PGM12-01-1708 


FILLER 


REDEF INES 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 


PGM12-81-2878 PIC 


8821 TEE ESS 2220202027272 72 7202127220202 02020202 0202027272 7272727272 7272727272 72.2.2 1202020202022 2202020202 721212 121202 1212.2727 


802210 PROGRAMM-STEUERUNG SECTION. 
002228 PR-1088. 
PERFORM VORLAUF. 
PERFORM VERARBEITUNG UNTIL TEXT-NR = 8. 
002250 PR-9999. 


002230 
002240 


002260 
802270 


802298 VORLAUF SECTION. 


EXIT PROGRAM. 


STOP RUN. 


VIPFFTELLEE SEES E22 2027202 27202 272 0227272727272 7272722727272 7272127272 2727272727272 72720212722 1272 2027272720212 7272 027270 


B82388 VOR-1888. 
DISPLAY SPACE UPON CRT. 
MOVE 1688 TO LAENGE. 


002318 
802328 


X(8572). 
X(8825). 
X(8378). 
X(8836). 
X(0044). 
X(0836). 
X(0844). 
X(0036). 
X(0044). 
X(8036). 
X(0844). 
X(8036). 
X(8274). 
X(8881). 
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802330 
002340 
002350 
002369 
002378 


MOVE 1 TO BILDSCHIRM-POS PUFFER-POS. 


MOVE 696 TO AT-BILDSCHIRM-POS. 
MOVE 1 TO AT-PUFFER-POS. 
MOVE 17 TO AT-LAENGE. 


002380 VOR-9999. 


002398 


EXIT. 


80240 1 HB IEIIIIIEII III IIIHIOWIERER 


002410 VERARBEITUNG SECTION. 
802428 VER-1000. 


002430 
002448 
802458 


802460*--- 


002478 
002480 
802490 
002508 
802518 


002520%*--- 


802530 
002540 
802550 
802568 
002578 
202588 
002598 
802600 
082610 
002628 
002630 
002640 
802658 


CALL X”Bß” USING TASTEN-PROGRAMMIERUNG F1-TASTE. 


ATTRIBUTE SCHREIBEN 
CALL EIN-AUSGABE USING SCHREIBEN-ATTR FORM-PARAMETER 
PGM12-Q8-ATTR. 


CALL EIN-AUSGABE USING SCHREIBEN-ATTR AT-FORM-PARAMETER 
ATTR-INVERTIERT. 

TEXT SCHREIBEN 

CALL EIN-AUSGABE USING SCHREIBEN-ZEICHEN FORM-PARAMETER 
PGM12-80. 


MOVE 1381 TO CURSOR-POS. 
ACCEPT PGM12-81 FROM CRT. 
MOVE HIGH-VALUE TO PFEIL-TASTE. 


IF TASTEN-NR = 1] 
PERFORM AUSWAHL UNTIL PFEIL-TASTE = BB. 


VER-9999. 


EXIT. 


DD26CDFrRRRR RER EHRE EHE HEHE R 


882670 AUSWAHL SECTION. 
002680 AUS-1089. 


202690 
802708 
802710 
202720 
002738 
002740 
802758 
802768 
0802778 
202780 
002798 
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CALL X"BÖ” USING TASTEN-PROGRAMMIERUNG PFEILE. 
ACCEPT PGM12-81-2878 AT 2078. 


IF PFEIL-OBEN PERFORM OBEN 
ELSE IF PFEIL-UNTEN PERFORM UNTEN. 


IF PFEIL-TASTE = 9 


COMPUTE TEXT-NR = 
(AT-BILDSCHIRM-POS - 696) / 80 + 1 


802808 
002819 
002820 
002830 
002840 
202858 
002860 
002870 
082880 
002890 
802908 
002918 
002920 
202938 
002940 
0802958 
802968 
282970 
002980 
002990 
803088 
003010 
003020 
203038 
003040 
203050 
803068 
803070 
203080 
003098 
203108 
003119 
003120 
203130 
203148 
083158 
003168 
203179 


GO TO AUS-1188 
AUS-1200 
AUS-1300 
AUS-1409 
AUS- 1590 
AUS-1698 
AUS-1708 
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AUS-9999 DEPENDING ON TEXT-NR. 


AUS-1108. 


MOVE "DATENBANK ” 
GO TO AUS-9999. 


AUS-1200. 


MOVE "TEXTVERARBEITUNG” 
GO TO AUS-9999. 


AUS-1308. 


MOVE "GRAPHIK ” 
GO TO AUS-9999. 


AUS-14B8. 


MOVE "TERMINPLANUNG 
GO TO AUS-9999. 


AUS-1508. 


MOVE "KALKULATION ” 
GO TO AUS-9999. 


AUS-1600. 


MOVE "KOMMUNIKATION 
GO TO AUS-9999, 


AUS-1700. 


MOVE "DIENSTPROGRAMME 
GO TO AUS-9999. 


AUS-9999. 


EXIT. 


TO PGM12-81-8813. 


TO PGM12-91-8813. 


To PGM12-91-8813. 


” TO PGM12-91-8813. 


TO PGM12-01-0813. 


” TO PGM12-81-0813. 


” TO PGM12-01-8813. 


883 1 TEE. a2 2 50278 2727272727272 7272127020202 02 7272020202712 02 7270202727202 12 702027270202 120202 0202702020202 12.2 022020270202 0202 02.2.2 0272027 


8831908 OBEN SECTION. 
2032008 OB-1988. 


803210 
003220 
003230 
003248 
003258 
003260 


IF AT-BILDSCHIRM-POS = 696 


CALL EIN-AUSGABE USING SCHREIBEN-ATTR AT-FORM-PARAMETER 
ATTR-NORMAL 


MOVE 1256 TO AT-BILDSCHIRM-POS 


CALL EIN-AUSGABE USING SCHREIBEN-ATTR AT-FORM-PARAMETER 
ATTR-INVERTIERT 
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803278 ELSE 


003280 CALL EIN-AUSGABE USING SCHREIBEN-ATTR AT-FORM-PARAMETER 
203298 ATTR-NORMAL 

803308 

203310 SUBTRACT 88 FROM AT-BILDSCHIRM-POS 

203320 CALL EIN-AUSGABE USING SCHREIBEN-ATTR AT-FORM-PARAMETER 
003330 ATTR-INVERTIERT. 


003348 08-9999. 

003350 EXIT. 

WIBSITERLLELELT STEEL EEE ERDE ELTER EDEL ERDSELEEUDERDE LEN EEE 
803378 UNTEN SECTION. 

003380 UN-1080. 


203390 IF AT-BILDSCHIRM-POS = 1256 

203400 CALL EIN-AUSGABE USING SCHREIBEN-ATTR AT-FORM-PARAMETER 
803418 ATTR-NORMAL 

003420 MOVE 696 TO AT-BILDSCHIRM-POS 

203430 CALL EIN-AUSGABE USING SCHREIBEN-ATTR AT-FORM-PARAMETER 
003440 ATTR-INVERTIERT 

203450 ELSE 

003468 CALL EIN-AUSGABE USING SCHREIBEN-ATTR AT-FORM-PARAMETER 
003478 ATTR-NORMAL 

003480 

803498 ADD 88 TO AT-BILDSCHIRM-POS 

003508 CALL EIN-AUSGABE USING SCHREIBEN-ATTR AT-FORM-PARAMETER 
203519 ATTR-INVERTIERT. 


083528 UN-9999. 
203538 EXIT. 


Menüsteuerung | 


Ama) | 


TEXTVERARBEITUNG 


Datenbank 
Textverarbeitung 
Textbaustein: raphi 
Terminplanung 
it der Fl-Taste gelangen Sie jeder- Kalkulation 
zeit ins Auswahl-Menü, wo Sie dann Kommunikation 
„it den Gursor-Tasten auf einer Dienstprogramne 
Funktion positionieren und anschlie- Ende 


send mit Return wahlen können. 


Fi = Auswahl 


Dialog-Testlauf (PGM12) 
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PGM13: Temporäre Modifikation des ACCEPT/ 
DISPLAY-Moduls aus dem Programm/ 
Sofortige Datenprüfung ohne Return-Taste 


308018 IDENTIFICATION DIVISION. 


200020 PROGRAM-ID. PGM13. 
200030 AUTHOR. R. HABIB. 
2080040 DATE-WRITTEN. 81-81-1987. 


000858 DATE-COMPILED. B1-Apr-87 19:28. 


WIDLITELEEE E22 8020202 2720202727278 027272 2027208727272 7272721272 2027272127272 12 1202 212 2027202027212 1202 02.2 202020272 0202.2 7. 
III EEEE EEE 220202 202 2022272 22202202 272727 212720272272 272 212721272 2727272021272 027 272 2127272022022 022020202727. 


WET LE R% 
a00090** PROGRAMMFUNKTION: “x 
BRAIND** *% 
BRB110** EINE SEHR WICHTIGE VORGEHENSWEISE BEI DER DATENEINGABE UND *x* 
000120** DATENPRÜFUNG IN DER PRAXIS WIRD IN DIESEM PROGRAMM xx 
000130%*%* DEMONSTRIERT. *r 
DOD140** Rx 


800150%** HIER WIRD DER ACCEPT/DISPLAY-MODUL SO MODIFIZIERT, DASS DIE *x* 
000160%** ACCEPT-ANWEISUNG SOFORT BEENDET WIRD, SOBALD EINE DER FEST- *% 
008170*%* GELEGTEN TASTEN GEDRÜCKT ODER DAS LETZTE ZEICHEN EINES FELDES** 
B00180*%* EINGEGEBEN WORDEN IST. Rx 
OD ID** *% 
200200%** DER ABLAUF WIRD SO AUSSEHEN, DASS DAS EINGEGEBENE FELD SOFORT** 
000210%** GEPRÜFT WIRD, BEVOR DER BENUTZER ZUM NÄCHSTEN FELD GELANGT. *#* 


2800220%** RR 
800230%*%* FÜR DIE BERECHNUNG DER FEHLERFREI EINGEGEBENEN FELDER WIRD ** 
200240** DIE RETURN-TASTE GEDRÜCKT. Rx 
D00250%** *% 


WIIPAT EEE EEE 22 2 2 22 22 22 222022 2227272 2 20272 2727227272722 72 2727272720272 7202727202 27272 2722722720202 027202720 
WI PA EEE EEE 2 E22 0272 22 272272020272 272 2727272727272 1272272027272 72727272 2712 2127212727272 1272 0270202020202 02 2272020202720 
2002808 ENVIRONMENT DIVISION. 

208298 CONFIGURATION SECTION. 

000300 SOURCE-COMPUTER. IBM-PC. 

B00318 OBJECT-COMPUTER. IBM-PC. 

000320 SPECIAL-NAMES. 

200330 DECIMAL-POINT IS COMMA, 

000340 CRT STATUS TASTEN-FELD, 

208350 CURSOR IS CURSOR-POS, 

200368 CONSOLE IS CRT. 

000378 INPUT-OUTPUT SECTION. 

200380 FILE-CONTROL. 


DIE ID III III III NE IE EEE HH 


008480 DATA DIVISION. 
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B80410 

000420 WORKING-STORAGE SECTION. 

000438 

000448 Bi TASTEN-FELD PIC XXX. 
0800450 


0004608 Bi FILLER REDEFINES TASTEN-FELD. 
200470 85 CRT2. 


B0048B 18 KZ PICXK. 
200498 108 TASTEN-NR PIC 99 COMP. 
0800580 85 FEHLER-KZ PICX. 


VIIERNEEEE EEE 2 2020202020202 72 202 02027027272 21202 272727127212 0272727212022 2727272727202 020202027272 /2/2 72021272127 2727272727 
VILEYIELLEN EEE EEE 2 222022202 2 202 202 2 2 2 2 2 2 2727272727202 02 2020202022222 0220202 02121212 212212121202 127202727 


2808530 01 FLAG PIC 99 COMP VALUE 1. 

080548 

WIEET LEE ES EZ 22 202 2 202 2 27272 272 202 202 202721272 72727272 272 202 27272127202 202 72 2720202020202 2120212722202 027202127273 
B00560* ZUM AKTIVIEREN VON 11 FUNKTIONSTASTEN DES ADIS-MODULS AB * 
000570* FUNKTIONSNUMMER 82. * 


VINELTELEEE EZ E22 22202 2 2027202720272 72 20202027212 727127272727272 720212 2027272272722 202027272 720202 72 202021270272 20202727 


0808598 81 CONFIG-ADIS-PARAMI. 


BRD6DD 83 WIRKUNGI PIC 99 COMP VALUE 1. 
208610 03 PARAMI PICX VALUE ”2”. 
000620 03 ANFANG! PIC 99 COMP VALUE 2. 
000630 03 ANZAHL] PIC 99 COMP VALUE 11. 
200640 


DOO65 Dr E URN 


D00660* ZUM AKTIVIEREN DER TASTEN CURSOR-LINKS/CURSOR-RECHTS, JEDOCH * 
080670* NUR DANN, WENN DER CURSOR IN DER LETZTEN STELLE EINES FELDES * 
200680* STEHT. * 


DI 6 ID HE EEEEEEIE EIER RII HIER 


BBR7BdBd 81 CONFIG-ADIS-PARAM2. 


208710 03 WIRKUNG2 PIC 99 COMP VALUE 3. 

200720 03 PARAM2 PIC X VALUE ”2”. 

200730 83 ANFANG2 PIC 99 COMP VALUE 3. 

2000740 03 ANZAHL2 PIC 99 COMP VALUE 2. 

2829758 
IIMITERELERERERERELTEETEIUER EEE ELELEREUEREREEEEEETERTENE NEE Te 
Bod770* ZUM AKTIVIEREN DER BENUTZER-FUNKTIONSTASTEN ESCAPE * 
000780* (FUNKTIONSNUMMER 89). * 


80079 BB 3 3 3 3:33 III III NIIT IENIEIIEIEIEIEN III IEIE IE III IH IEH IHREN 


BBd8dd Di CONFIG-ADIS-PARAM3. 


WLLERT 83 WIRKUNG3 PIC 99 COMP VALUE 1. 
000820 03 PARAM3 PICX VALUE "1". 
808830 03  ANFANG3 PIC 99 COMP VALUE ®. 
0800840 03 ANZAHL3 PIC 99 COMP VALUE 1. 
200859 


VILETT ELSE 2 E22 0202 2720272787272 02 2 212 2127272727272 727272727272 7227272021272 7272127272 2727272727272 72 727272727272 7272 02027273 


B00870* ZUM AKTIVIEREN EINER SONDERFUNKTION DES ADIS-MODULS, WONACH * 
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Ödd880* DIE ACCEPT-ANWEISUNG BEENDET WIRD, WENN DAS LETZTE ZEICHEN * 
000890* EINES FELDES EINGEGEBEN WORDEN IST. % 


DO ID 3 3 3 30 3 0 EEE EI IEIEIEIE IE IE IEIENE HEHE HET IENEIENEIEIEIEIEE HERE IEIE IE HEMER III IE: 


Baa9ıd Di CONFIG-ADIS-PARAM4. 


200920 83 WIRKUNG4 PIC 99 COMP VALUE 2. 
208938 03 PARAM4 PICX VALUE ”"2”. 
200940 03  ANFANG4 PIC 99 COMP VALUE 82. 
808950 03 ANZAHL4 PIC 99 COMP VALUE 1. 
800960 

00971333 HH III IIIIIIIIIIIII III III EHER 
BoB980 1 ESCAPE PIC XX VALUE X”3108”. 
2008998 81 ENTER-TASTE PIC XX VALUE X”"3030”. 
BR1RDD 

BBıdıd Bi TAB-V PIC XX VALUE X”3208”. 
BB1ıd28 di ZEILE-V PIC XX VALUE X”"3282”. 
BR1ı830 di FELD-V PIC XX VALUE X”320B”. 
281040 81 ENDE PIC XX VALUE X”32DA”. 
BB1858 Bi PFEIL-U PIC XX VALUE X”3206”. 
BO1Bd68 Bi PFEIL-R PIC XX VALUE X”3294”. 
2881078 

Buıded 81 PFEIL-L PIC XX VALUE X”3203”. 
DA1098 Bi PFEIL-O PIC XX VALUE X”3205”. 
BB1108 di FELD-R PIC XX VALUE X”328C”. 
Bad Bi TAB-R PIC XX VALUE X”3289”. 
BR1128 81 HOME PIC XX VALUE X”3207”. 


0011 30 933 BREIT IRRIBTEIGNIEII III IEIIIBIIEIIIIGIIEIIIIKOI II II III III X 


001140* PARAMETER FÜR EIN/AUSGABE VON BILDSCHIRM-ATTRIBUTEN BZW. DATEN * 


DD 115 3% 38 36 36 3 3 3 3 3 a EBENEN IE IEIEIE EIGNEN BEIGE IEIEIHIE III III IEIEIE II III TEE ICH 


D81168 


BB1178 Bi EIN-AUSGABE PICX() VALUE X”B7”. 
Ba118d DI SCHREIBEN-ATTR PIC 9(2) COMP VALUE 3. 
Ba1198 81 SCHREIBEN-ZEICHEN PIC 9(2) COMP VALUE 1. 
201200 

BB12108 Bi FORM-PARAMETER. 

881220 03 LAENGE PIC 9(4) COMP VALUE 72. 
8012380 83 BILDSCHIRM-POS PIC 9(4) COMP VALUE 1849. 
0801240 083 PUFFER-POS PIC 9(4) COMP VALUE 1. 


80 ] 25H BHBHBBEBOEIEIEEIEEETIEIEERIEIIIIIIIIIIIHITIIHIIEIBIIIIIEIIIIIIIEIHI III HEHE IE IE HER 


0012608 Bi CURSOR-POS. 


881270 85 ZEILE PIC 9(2). 

01288 85 SPALTE PIC 9(2). 

801298 81 N-FELD PIC 9(1). 

001 31 0:93:33 BBBBRRBRBBREBBEIBEBBEBBBBBEIBBBBBEIBSBIBBBEERRIBIBBEBBRIBEIGEEN 
801310. 01 DARLEHEN PIC 9(6)V99. 

801320 01 ZINSSATZ PIC 9(2)V9(3). 

201330 81 LAUFZEIT PIC 9(2). 

001340 
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801358 Di Q PIC I9(1)VI(18). 
801360 BI RATENZINSSATZ PIC 9(2)VI(19). 
201378 81 ANZAHLRATEN PIC 9(3). 


881 ZBDABBBBBORIBEIIIIBIIBIIIIIIIOIIIIIBIIIIHIIIIIIBIRIBIIBIBIEIBHBIBIBIHBHIHHH IH IIHIIOIER: 


BB1480 81 PGM13-88-ATTR. 

D01410 83 FILLER PIC X(8682) VALUE ALL X”83”. 

B81420 83 FILLER PIC X(8818) VALUE ALL X”1B”. 

001438 83 FILLER PIC X(8158) VALUE ALL X”03”. 

001440 83 FILLER PIC X(0806) VALUE ALL X”1B”. 

001450 03 FILLER PIC X(0154) VALUE ALL X”03”. 

DA1460 83 FILLER PIC X(8982) VALUE ALL X"”1B”. 

D01470 83 FILLER PIC X(8318) VALUE ALL X”03”. 

001489 83 FILLER PIC X(8811) VALUE ALL X”4B”. 

201490 83 FILLER PIC X(8289) VALUE ALL X”063”. 

281580 83 FILLER PIC X(8854) VALUE ALL X”8B”. 

881510 83 FILLER PIC X(04904) VALUE ALL X”03”. 

081528 81 PGMI3S-Bd . 

8915530 83 PGM13-08-D181 PIC X(DO8D) VALUE "gemessenen 
B01548- ng”) 
801550 83 PGM13-08-0281 PIC X(0081) VALUE ”|”. 

201568 83 FILLER PIC X(0078). 

0801578 83 PGM13-00-8288 PIC X(Bdd1) VALUE ”]”. 

001589 03 PGM13-08-0301 PIC X(0881) VALUE "|". 

801598 83 FILLER PIC X(8832). 

201600 03 PGM13-00-0334 PIC X(89815) VALUE "Ratenberechnung”. 
B91610 83 FILLER PIC X(8831). 

801620 83 PGM13-08-0380 PIC X(B881) VALUE ”|”. 

881638 83 PGM13-08-04Q01 PIC X(0881) VALUE "|". 

2881640 83 FILLER PIC X(8078). 

801659 03 PGM13-09-0488 PIC X(Bddt) VALUE ”|”. 

BD166H 83 PGM13-08-0501 PIC X(DD8Dd) VALUE " Jm——————————— 


d851678- —— | ” 


B01688 03 PGM13-00-8681 PIC X(ddd1) VALUE "|”. 
281690 03 FILLER PIC X(8078). 

81708 03 PGM13-00-8688 PIC X(Bdd1) VALUE ”|”. 
Ba171B 03 PGM13-08-0701 PIC X(B001) VALUE ”|”. 
001728 03 FILLER PIC X(8878). 

081738 03 PGM13-00-0788 PIC X(B001) VALUE "|”. 
201740 03 PGM13-08-Bedı PIC X(Bdd1) VALUE ”]”. 
001758 03 FILLER PIC X(0978). 

001768 03 PGM13-00-0888 PIC X(B8B1) VALUE "|". 
201778 03 PGM13-08-08981 PIC X(0841) VALUE "| Hypothekendarlehen 
B01788- "(10.000 - 700.088):”. 

001798 03 FILLER PIC X(0038). 

D01800 D3 PGM13-88-0980 PIC X(Bddt) VALUE ”|”. 
Ba181D ß3 PGM13-88-1801 PIC X(D081) VALUE "|". 
001820 83 FILLER PIC X(8878). 
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0801830 
801848 
801850- 
081869 
081878 
201880 
201890 
801908 
BH1918 
801928 
2981930 
D01948 
801958 
D81960 
0891978 
B81988 
801998 
002089 
B02010 
002028 
002030 
002040 
802050 
002069 
002079 
002080 
082098 
2802108 
82118 
002129 
002130 
B02148 
802158 
802168- 
002178 
B02180 
882190 
002208 
802218- 


082220 01 


002238 
002240 
002250 
002260 
002278 
082289 
082298 


83 
03 


PGM13-89-1089 
PGM13-89-1101 


u 


03 
03 
03 
B3 
83 
03 
03 
D3 
03 
03 
83 
03 
03 
03 
03 
03 
03 
03 
03 
03 
03 
23 
83 
83 
83 
83 
83 
03 
03 
03 
03 
03 
03 
03 


83 
03 
03 
03 
03 
03 
03 


FILLER 
PGM13-80-1149 
FILLER 
PGM13-88-1180 
PGM13-88-1201 
FILLER 
PGM13-08-1280 
PGM13-88-1381 
FILLER 
PGM13-00-1380 
PGM13-09-1401 
FILLER 
PGM13-00-1480 
PGM13-98-1591 
FILLER 
PGM13-88-1588 
PGM13-88-1681 
FILLER 
PGM13-88-1688 
PGM13-88-1781 
FILLER 
PGM13-00-1748 
FILLER 
PGM13-08-1754 
FILLER 
PGM13-08-1780 
PGM13-88-1881 
FILLER 
PGM13-88-1880 
PGM13-80-1981 


PGM13-00-2001 PIC X(0813) VALUE ”| 
PIC X(8866). 


FILLER 


PIC 
PIC 


PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 


X(8881) 
X(0823) 


X(80825). 
X(8881) 
X(0838). 
X(8801) 
X(8881) 
X(2078). 
X(8801) 
X(8028) 
X(8859). 
x(0801) 
X(8881) 
X(8078). 
X(8881) 
X(8081) 
X(0078). 
X(0881) 
X(8881) 
X(0878). 
X(0891) 
X(8813) 
X(8826). 
X(8801) 
X(8813). 
X(8082) 
X(8824). 
X(8881) 
X(8881) 
X(8078). 
X(8001) 
X(2088) 


VALUE 


VALUE 


VALUE 


VALUE 
VALUE 


VALUE 
VALUE 


VALUE 
VALUE 


VALUE 
VALUE 


VALUE 
VALUE 


VALUE 
VALUE 


VALUE 


VALUE 


VALUE 
VALUE 


VALUE 
VALUE 
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Zinssatz (0,5 - 12% 


Laufzeit (1 - 35)”. 


Monatsrate”. 


Esc = Ende”. 


PGM13-80-2088 PIC X(Add1) VALUE "|". 
PGM13-00-2101 PIC X(DO8D) VALUE " Hmmm 


”„ 1 
PGM13-88 


PGM13-91 
FILLER 
PGM13-01-0943 
FILLER 
PGM13-81-1143 
FILLER 
PGM13-81-1343 
FILLER 


REDEFINES 


PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 


X(0682). 
222.277, 
X(8158). 


22,227. 


xX(8154). 


27. 
X(8318). 


22. 
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092300 03 PGM13-01-1743 PIC ZZZ.ZZZ,ZZ. 

082318 83 FILLER PIC X(8218). 

082320 83 PGM13-81-2823 PIC X(8853). 

08 23 3 3333333 BBBRBRERRRRBEEIBBBEBRBBBRBIBEGREBIEBEIGSBBIBBEEGGERIBIEBIBEISEIRIEINEN 
0082348 PROCEDURE DIVISION. 

802358 PROGRAMM-STEUERUNG SECTION. 

002360 PR-1B00. 

802378 PERFORM VORLAUF. 

002380 PERFORM VERARBEITUNG UNTIL CRT2 = ESCAPE. 

202398 PR-9999. 

202408 EXIT PROGRAM. 

002410 STOP RUN. 
IRIVIERKERLEERSRTTEETTE TEE EEE DEE EEE ELDEUEETERD DENE 2222 222 
002438 VORLAUF SECTION. 

0082448 VOR-1D80B. 

802450 MOVE 8181 TO CURSOR-POS. 


002460 DISPLAY SPACE UPON CRT. 

002470 

002480 CALL X”AF” USING FLAG, CONFIG-ADIS-PARAMI. 

002490 CALL X”AF” USING FLAG, CONFIG-ADIS-PARAM2. 

002508 

002518 CALL X”AF” USING FLAG, CONFIG-ADIS-PARAM3. 

082528 CALL X”"AF” USING FLAG, CONFIG-ADIS-PARAM4. 

002538 

002540 MOVE 1680 TO LAENGE. 

092558 MOVE 1 TO BILDSCHIRM-POS. 

002569 MOVE 1 TO PUFFER-POS. 

802578 

002580 CALL EIN-AUSGABE USING SCHREIBEN-ATTR FORM-PARAMETER 
202599 PGM13-QBd-ATTR. 

002608 

002618 CALL EIN-AUSGABE USING SCHREIBEN-ZEICHEN FORM-PARAMETER 
002620 PGM13-D0. 

002630 


002640 MOVE 1 TO N-FELD. 

002658 MOVE SPACE TO CRT2. 

002660 VOR-9999. 

002678 EXIT. 
IIIETELERELELESTTEETSTTERTEITERTEIEERTEEELEREIE EURE EEUDEED EEE 22T 
002690 VERARBEITUNG SECTION. 

202708 VER-DDDB. 

002718 GO TO VER-1888 VER-2888 VER-30088 DEPENDING ON N-FELD. 
802728 

002738 VER-1888. 

002748 ACCEPT PGM13-81-0943 AT 8943. 

802758 IF CRT2 = ESCAPE GO TO VER-9999. 

802768 IF CRT2 = HOME MOVE 1 TO N-FELD 
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002778 
002788 
882790 
002800 
002819 
002820 
002830 
002840 
002858 
002868 
802870 
002889 
002890 
802988 
002918 
002928 
002938 
202949 
802958 
802960 
002970 
202980 
8082999 
203000 
803018 
803020 
003030 
003040 
203050 
003060 
803070 
203088 
083098 
203100 
283110 
203128 
003130 
003140 
203150 
803168 
803170 
D03180 
803190 
003209 
203219 
203220 
003238 
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GO TO VER-9999. 


MOVE PGM13-01-0943 TO DARLEHEN. 

IF DARLEHEN < 18868 OR > 7880088 
MOVE "FEHLER (DARLEHEN)” TO PGM13-81-2823 
PERFORM TEXTE 
GO TO VER-9999 


ELSE MOVE SPACE TO PGM13-91-2023 
PERFORM TEXTE 
ADD 1 TO N-FELD. 


VER-20ß8. 


ACCEPT PGM13-81-1143 AT 1143. 
IF CRT2 = ESCAPE GO TO VER-9999. 
IF CRT2 = HOME MOVE 1 TO N-FELD 
MOVE SPACE TO PGM13-81-2023 
PERFORM TEXTE 
GO TO VER-9999. 
IF CRT2 = PFEIL-O OR PFEIL-L OR FELD-R OR TAB-R 
SUBTRACT 1 FROM N-FELD 
MOVE SPACE TO PGM13-91-2823 
PERFORM TEXTE 
GO TO VER-9999. 


MOVE PGM13-91-1143 TO ZINSSATZ. 

IF ZINSSATZ < 1 OR > 12 
MOVE "FEHLER (ZINSSATZ)” TO PGM13-91-20823 
PERFORM TEXTE 
GO TO VER-9999 


ELSE MOVE SPACE TO PGM13-81-2823 
PERFORM TEXTE 
ADD 1 TO N-FELD. 


VER-3898. 


ACCEPT PGM13-81-1343 AT 1343. 

IF CRT2 = ESCAPE GO TO VER-9999. 

IF CRT2 = HOME MOVE 1 TO N-FELD 
MOVE SPACE TO PGM13-81-2823 
PERFORM TEXTE 
GO TO VER-9999. 


IF CRT2 = PFEIL-O OR PFEIL-L OR FELD-R OR TAB-R 
SUBTRACT 1 FROM N-FELD 
MOVE SPACE TO PGM13-01-2023 
PERFORM TEXTE 
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003249 
803250 
003260 
003270 
003288 
003298 
003300 
003310 
003320 
003330 
003340 
003350 
003368 
003378 
203380 
803398 
003408 
003418 
003420 
003430 
003440 
003458 
003460 
003470 
003480 
203498 
0035908 


GO TO VER-9999. 

MOVE PGM13-81-1343 TO LAUFZEIT. 

IF LAUFZEIT < 1 OR > 35 
MOVE "FEHLER (LAUFZEIT)"” TO PGM13-81-2823 
PERFORM TEXTE 
GO TO VER-9999 

ELSE MOVE SPACE TO PGM13-91-2023 

PERFORM TEXTE. 

IF CRT2 = ENTER-TASTE 
MOVE "BITTE WARTEN” TO PGM13-91-2823 
PERFORM TEXTE 
COMPUTE RATENZINSSATZ = ZINSSATZ / 12 
COMPUTE Q ROUNDED = 1 + RATENZINSSATZ / 108 
COMPUTE ANZAHLRATEN = LAUFZEIT *% 12 
COMPUTE PGM13-81-1743 ROUNDED = 

(DARLEHEN * ( Q %*%* ANZAHLRATEN) 
* (Q-1)) / (Q ** ANZAHLRATEN - 1) 
MOVE SPACE TO PGM13-81-2023 
PERFORM TEXTE. 
VER-9999. 
EXIT. 


0935 RUE E22 2 2 202 2727202027202 7127212727272 72 2720202727272 127272027272 0212022780222 2127027212022 1272022 2.2202 1202 0222 72,2 0275 


003520 
003530 
003540 
803550 
003560 
003578 
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TEXTE SECTION. 
TE-1800. 
CALL EIN-AUSGABE USING SCHREIBEN-ZEICHEN FORM-PARAMETER 
PGM13-08. 
TE-9999. 
EXIT. 
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Ratenberechnung | 
| 
| 


—— 


Hypothekendarlehen (10.008 - 780.008): ERRBREIENE 
Zinssatz (9,5 - 12%) 
Laufzeit (1 - 35) 


Monatsrate - DM | 


Esc = Ende FEHLER (ZINSSATZ) 1 


Dialog-Testlauf (PGM13) 
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PGM14: Eingabe eines Passwortes/Unterdrückung 
der Voranzeige bei ACCEPT 


DRBKA1Gd IDENTIFICATION DIVISION. 


800028 PROGRAM-ID. PGM14. 
2080038 AUTHOR. R. HABIB. 
0200040 DATE-WRITTEN. 81-81-1987. 


280050 DATE-COMPILED. Qt1-Apr-87 19:29. 


B809 6 93:3: 3: BOHRER IGNIEIEIIEIHTEINIEIIEIGI IE III IE II IIEIIIIEIIIHTIIIHH IHK 
80978: 33:33 BBRBRBRRBRERBRIBEIHIIEIEIHIBBIBEIHIIHIHIEIEIIIBIEIT III HEIGHT N 


YLLLELEE xx 
000090%** PROGRAMMFUNKTION: ** 
ABD100x* x 


D@A110%* DAS PROGRAMM DEMONSTRIERT DIE EINGABE EINES PASSWORTES UND *% 
000120** DIE UNTERDRÜCKUNG DER VORANZEIGE BEI DER ACCEPT-ANWEISUNG *% 
000130%*%* MIT HILFE DER ASSEMBLER-ROUTINE X”AF”. *% 
DADT4DR“ xx 
DDD 15 DIE HEUER 
809161 PUB BEREITETE ERIK IEIEHNEN 
288170 ENVIRONMENT DIVISION. 

BRD18Bd CONFIGURATION SECTION. 

B8A19d SOURCE-COMPUTER. IBM-PC. 

288200 OBJECT-COMPUTER. IBM-PC. 

200210 SPECIAL-NAMES. 

800220 CURSOR IS CURSOR-POS, 

200230 CONSOLE IS CRT. 

000248 INPUT-OUTPUT SECTION. 

0008250 FILE-CONTROL. 


WIIIATELEEE E22 2020202722022 02 2 12 20272 7272727272022 721272272 7272727272722 72727212 7127272727272 2121212721272 7227202 7272,22 70 


2800278 DATA DIVISION. 


000280 

808298 WORKING-STORAGE SECTION. 

BOB300 Bi CURSOR-POS PIC 9(4) VALUE B1B1. 
200318 

800328 81 FLAG PIC 99 COMP VALUE 1. 
000330 

200348 81 PASSWORT-PARAMETER. 

808350 05 P-PARAM-1 PIC 99 COMP VALUE 2. 
000360 05 P-PARAM-2 PIC X VALUE ”2”. 
000378 05 P-PARAM-3 PIC 99 COMP VALUE 84. 
200380 85 P-PARAM-4 PIC 99 COMP VALUE 1. 
080398 

800408 81 VORANZEIGE-PARAMETER. 

800410 05 V-PARAM-1 PIC 99 COMP VALUE 1. 
000420 085 V-PARAM-2 PICX VALUE ”2”. 
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000438 85 V-PARAM-3 PIC 99 COMP VALUE 76. 
000440 05 V-PARAM-4 PIC 99 COMP VALUE 1. 
D00458 


WEIETTELDEZ ESS 2 2 202 2020202727 212 02 0202027202 727272721202 72 7272727272727 227202727 2120272 2727202 2727270202202 272.2 20272702027 


000470%* PARAMETER FÜR EIN/AUSGABE VON BILDSCHIRM-ATTRIBUTEN BZW. DATEN * 


000480 333 3 ERREGT AI IE IT IIEIIEIEN III IE III IH IEHE INTER IKK ICH 


0004908 Bi EIN-AUSGABE PIC X() VALUE X”B7”. 
808508 

BaB51d Bi LESEN-ZEICHEN PIC 9(2) COMP VALUE B. 
200520 Bi SCHREIBEN-ZEICHEN PIC 9(2) COMP VALUE 1. 
000538 

008548 01 LESEN-ATTR PIC 9(2) COMP VALUE 2. 
208550 di SCHREIBEN-ATTR PIC 9(2) COMP VALUE 3. 
800560 

200578 B1 FORM-PARAMETER. 

000580 03 LAENGE PIC 9(4) COMP. 

200598 03 BILDSCHIRM-POS PIC 9(4) COMP. 

B0060R 83 PUFFER-POS PIC 9(4) COMP. 


IT EEE 2 202 2720272 02722272 272 2720272727272 222722272 272722727 2727202727272 2727272727222 202 2.222202 0202 20272 2705 


200628 D1 TASTEN-PROGRAMMIERUNG PIC 99 COMP VALUE 2. 
000638 81 TASTEN-TABELLE. 

200640 83 TASTEN-NR PIC 99 COMP. 

200650* DIE TASTEN: ESC=] 

200660 83 FILLER PIC X(2) VALUE X”O11B”. 

200670* ENDE-KENNZEICHEN 

200680 83 FILLER PIC X VALUE X”808”. 


D00 69 0:3: 3 RR III II II IEIEIEIIEI III III IIIEIIEIBIEI II IR IHRER ICH 


BBd718 91 PGM14-Q8-ATTR. 

800728 03 FILLER PIC X(8174) VALUE ALL X”03”. 
200730 83 FILLER PIC X(8842) VALUE ALL X”31”. 
0800740 83 FILLER PIC X(8038) VALUE ALL X”03”. 
220750 83 FILLER PIC X(0842) VALUE ALL X”31”. 
200768 03 FILLER PIC X(8038) VALUE ALL X”03”. 
2089778 03 FILLER PIC X(8842) VALUE ALL X”31”. 
000780 83 FILLER PIC X(8351) VALUE ALL X”03”. 
200798 83 FILLER PIC X(0848) VALUE ALL X”13”. 
200809 83 FILLER PIC X(0848) VALUE ALL X”03”. 
208810 83 FILLER PIC X(0040) VALUE ALL X”13”. 
0800820 83 FILLER PIC X(8848) VALUE ALL X”03”. 
000830 83 FILLER PIC X(0048) VALUE ALL X”13”. 
200840 83 FILLER PIC X(8048) VALUE ALL X”03”. 
000850 83 FILLER PIC X(0848) VALUE ALL X”13”. 
800860 83 FILLER PIC X(@0048) VALUE ALL X”03”. 
280878 83 FILLER PIC X(0048) VALUE ALL X”13”. 
200880 83 FILLER PIC X(8913) VALUE ALL X”03”. 
2800890 01 PGM14-08 

800908 03 PGM14-B8-B1d1 PIC X(D080) VALUE " gm 
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DOB918- 
200928 
200930 
20094 BD 
880958 
800968 
2880978 
200989 
200998 
201008 
Ba1B10- 
281820 
801038 
281048 
281058 
881068 
881078 
B01080 
881090 
281100 
BB1118 
B81128 
891130 
DO1148 
881150 
DA1168 
801178 
BA1180 
891198 
891200 
891218 
801228 
881238 
801248 
801258 
801268 
801278 
801288 
291298 
881300 
Ba1310 
801328 
801330 
801340 
801358 
001368 
801378 
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B3 
D3 
03 
83 
03 
03 
83 
03 
03 


"ng der Voranzeige”. 


B3 
03 
83 
03 
03 
03 
03 
03 
83 
83 
03 
03 
03 
83 
03 
03 
03 
83 
03 
03 
03 
B3 
83 
83 
83 
03 
03 
03 
03 
83 
03 
03 
03 
03 
83 
03 


PGM14-89-8291 
FILLER 
PGM14-00-8280 
PGM14-988-0381 
FILLER 
PGM14-809-0380 
PGM14-00-0491 
FILLER 
PGM14-08-0417 


FILLER 
PGM14-80-0480 
PGM14-88-0591 

FILLER 
PGM14-80-0580 
PGM14-80-0681 

FILLER 
PGM14-88-0680 
PGM14-88-8781 

FILLER 
PGM14-808-0728 

FILLER 
PGM14-80-0788 
PGM14-88-0891 

FILLER 
PGM14-00-80880 
PGM14-08-0981 

FILLER 
PGM14-08-8988 
PGM14-88-1891 

FILLER 
PGM14-88-1088 
PGM14-88-1181 

FILLER 
PGM14-08-1188 
PGM14-08-1281 

FILLER 
PGM14-08-1288 
PGM14-89-13081 

FILLER 
PGM14-98-1380 
PGM14-88-1481 

FILLER 
PGM14-80-1480 
PGM14-88-1581 

FILLER 


PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 


PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 


X(0881) VALUE "|". 


X(8878). 


X(8881) 
X(8881) 


X(0078). 


X(8801) 
X(8881) 


X(8915). 


X(8839) 


X(0824). 


X(8881) 
X(8801) 


X(0078). 


X(8881) 
X(8881) 


X(0078). 


X(8801) 
X(8081) 


X(0826). 


X(8818) 


X(8834). 


X(8881) 
X(8007) 


X(0072). 


X(8881) 
X(0891) 


X(0078). 


xX(80801) 
X(8801) 


X(8078). 


X(8881) 
X(8891) 


X(B8878). 


X(8081) 
X(8881) 


X(8078). 


X(8081) 
X(8801) 


X(8078). 


X(8881) 
X(0881) 


X(8878). 


X(8881) 
X(0881) 


X(8078). 


VALUE 
VALUE 


VALUE 
VALUE 


VALUE 


VALUE 


VALUE 


VALUE 
VALUE 


VALUE 
VALUE 


VALUE 


VALUE 
VALUE 


VALUE 
VALUE 


VALUE 
VALUE 


VALUE 
VALUE 


VALUE 
VALUE 


VALUE 
VALUE 


VALUE 
VALUE 


VALUE 
VALUE 


"Passwort: ( )”. 


"| Text:”. 
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001388 B3 PGM14-98-1580 PIC X(0881) VALUE "|". 

801398 03 PGM14-B8-1601 PIC X(8017) VALUE "| Datun: .19”. 
201408 83 FILLER PIC X(8862). 

891410 03 PGM14-80-1680 PIC X(B8d1) VALUE "|". 


B01420 083 __PGM14-00-1701 PIC X(2080) VALUE * m— 
001438- | 


001440 03 PGM14-Bd-1801 PIC X(Bdd1) VALUE "|". 


801458 83 FILLER PIC X(8038). 
081468 03 PGM14-98-1840 PIC X(0085) VALUE "pp". 
2801478 83 FILLER PIC X(80835). 


0801489 03 PGM14-00-1888 PIC X(DR081) VALUE "|". 
081498 83 PGM14-88-1901 PIC X(D8B1) VALUE "|". 


881580 83 FILLER PIC X(8838). 
881518 03 PGM14-80-1940 PIC X(2813) VALUE "Esch Ende”. 
2881520 03 FILLER PIC X(8827). 


201538 03 PGM14-00-1988 PIC X(Bdd1) VALUE "|". 
B01540 D3 PGM14-BB-2081 PIC X(B881) VALUE "|". 


801550 83 FILLER PIC X(8838). 

881560 03 PGM14-00-2048 PIC X(0005) VALUE "ll" - 

891570 83 FILLER PIC X(8835). 

081580 03 PGM14-08-2080 PIC X(0081) VALUE "|". 

881598 03 PGM14-88-2181 PIC X(DO80) VALUE " Krmmmmmmmmmmmmmmmmmmemmenemnne 
D01608- a N 
DR1I61B 01 PGM14-91 REDEFINES PGM14-00 

281620 83 FILLER PIC X(0518). 

881630 03 PGM14-81-8739 PIC X(8886). 

001640 03 FILLER PIC X(8283). 


201658 82 PGM14-D1-GRUPPE. 
B81660 B3 PGM14-81-1008 PIC X(0840). 


881678 83 FILLER PIC X(8848). 
081680 03 PGM14-81-1108 PIC X(0948). 
881690 83 FILLER PIC X(8848). 
881708 03 PGM14-01-1208 PIC X(D84B). 
291719 83 FILLER PIC X(0948). 
291728 B3 PGM14-81-1388 PIC X(B8848B). 
0801730 83 FILLER PIC X(8848). 
001749 03 PGM14-81-1408 PIC X(0840B). 
091750 83 FILLER PIC X(8122). 
801760 03 PGM14-81-1610 PIC 29.99. 

881770 83 FILLER PIC X(8883). 
801780 03 PGM14-81-1618 PIC 9(8882). 
081790 83 FILLER PIC X(8223). 


091808 03 PGM14-91-1983 PIC X(8833). 
TACADLELELSEEEEITTEPEEETTEEIEREREIEIEREEUTELEREEDUEELDUEEEEDERDENEE EST 
881820 PROCEDURE DIVISION. 

0081830 PROGRAMM-STEUERUNG SECTION. 

B81840 PR-1000. 
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001850 
801860 


PERFORM VORLAUF. 
PERFORM VERARBEITUNG UNTIL TASTEN-NR = 1. 


BB1870 PR-9999. 


801880 
201890 


EXIT PROGRAM. 
STOP RUN. 


VIARTTEILESEE ES 22 2 202020202 0202027127272 2120202727 2727202021272 727272727202 2727272727272 02121202 2727272727212 02202 12.20272/2,5 


801910 VORLAUF SECTION. 
B01920 VOR-1BRD. 


001930 
01948 
801958 
B01968 
801978 
801988 
0881990 
282008 
802810 
002020 
202030 
202040 
202050 
202060 
202070 
B02080 
002090 
02100 
892110 
892120 
802130 
002140 
882158 


DISPLAY SPACE UPON CRT. 


CALL X"AF” USING FLAG PASSWORT-PARAMETER. 


CALL X”"Bß” USING TASTEN-PROGRAMMIERUNG TASTEN-TABELLE. 


MOVE 1680 TO LAENGE. 
MOVE 1 TO BILDSCHIRM-POS PUFFER-POS. 


CALL EIN-AUSGABE USING SCHREIBEN-ATTR FORM-PARAMETER 
PGM14-B88-ATTR. 

CALL EIN-AUSGABE USING SCHREIBEN-ZEICHEN FORM-PARAMETER 
PGM14-89. 


MOVE SPACE TO PGM14-81-9739. 
PERFORM PASSWORT UNTIL PGM14-81-0739 = "TESTEN”. 


MOVE 8 TO P-PARAM-1. 
CALL X”AF” USING FLAG PASSWORT-PARAMETER. 


CALL X”AF” USING FLAG VORANZEIGE-PARAMETER. 


VOR-9999. 


EXIT. 


0021 60:22:33 BO IRRE TINTEN ICH RK 


802170 VERARBEITUNG SECTION. 
802180 VER-100B. 


892190 


ACCEPT PGM14-B1-GRUPPE AT 1888. 


802288 VER-9999. 


802218 


EXIT. 


DO22 20 Hr a EEE EUER EEE IE EHE EEE EEE EN ETEHER IE R IE R RE 


002230 PASSWORT SECTION. 
082248 PASS-1D80. 


002250 
002260 
002278 
802280 
802290 
002309 
002318 


9-90 


ACCEPT PGM14-01-0739 AT 8739. 
IF PGM14-81-0739 NOT = "TESTEN” 

MOVE "Falsches Passwort” TO PGM14-81-1983 
ELSE MOVE SPACE TO PGM14-81-1903. 


DISPLAY PGM14-81-1903 AT 1983. 
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202328 PASS-9999. 
002330 EXIT. 


Passwort Unterdrückung der Voranzeipe 


Passwort: () 


Datum: 


Dialog-Testlauf (PGM 14) 


9-91 


Demonstrationsprogramme 


PGM15: Aktivieren des erweiterten Bildschirm- 
treibers ANSI.SYS 


08818 IDENTIFICATION DIVISION. 

080028 PROGRAM-ID. PGM15. 
280030 AUTHOR. R. HABIB. 
200048 DATE-WRITTEN. 81-01-1987. 
208850 DATE-COMPILED. B1-Apr-87 19:38. 


ODE DREHEN EEE HH RHEIN HEHEHEEHHRHE NR 
VIII ELEE EEE EEE 222 272 27272222 20272 2727202727222 02 2 2127272727272 722 1212727202727 2122121272722 702 2121272720202 027. 


WLLET LE *% 
000090%** PROGRAMMFUNKTION: ”% 
DD 1 ddr * “x 
BRD110%** DAS PROGRAMM ZEIGT IHNEN, WIE DER ERWEITERTE BILDSCHIRM- Rx 
B00120** TREIBER ANSI.SYS AUS DEM COBOL-PROGRAMM AKTIVIERT WERDEN *% 
B00130** KANN. *% 
DOD14D** *% 
200150%*%%* SÄMTLICHE FUNKTIONEN DES BILDSCHIRMTREIBERS -SOWEIT SINNVOLL-** 
B00160** KÖNNEN HIER JEWEILS MIT EINER ESCAPE-SEQUENZ AUSGEFÜRT *% 
DRK1TO** WERDEN. xx 
BRD1EN** *% 
200190%** DIE ESCAPE-SEQUENZ WIRD IMMER MIT DER DISPLAY-ANWEISUNG xx 
000200%** EINGELEITET. R% 
BBd210*% xx 


800 220 Mr EEE EEE EHER EEE EEE ER EEHEIEUNEKER IR IN R 
80.923033 3 3 7 3 3 III III II HEHE HE 


80202408 ENVIRONMENT DIVISION. 
0080258 CONFIGURATION SECTION. 


008260 SOURCE-COMPUTER. IBM-PC. 
0880278 OBJECT-COMPUTER. IBM-PC. 
D00288 SPECIAL-NAMES. 

800298 CONSOLE IS CRT. 


WEIST EEEE EEE EEE Eee EEE Eee ee Eee 275 2272727272027 272727272 2727202272727 2727272727227 272027 272027272 72027273 


808310 DATA DIVISION. 
800320 WORKING-STORAGE SECTION. 


208330 

000348 81 FUNKTION-18 PIC 9(2) COMP VALUE 18. 

200358 01 PARAMETER-18 PIC 9(2) COMP VALUE 1. 

00 36 0:30 333 BER BRBRERRBRBEBBEBERRBBBIGRBBEIBSBBIBBEBBGRBBBEBERBEIRBEESEIRI NEN 
8008378 Bi TEXTI PIC X(68) VALUE 

200388 " TEXT DUNKELBLAU AUF HELLBLAU ”. 

000398 81 TEXT2 PIC X(68) VALUE 

000408 ” TEXT VIOLETT AUF GELB ” 

B88410 Bi TEXT3 PIC X(68) VALUE 

800428 "TEXT BLEIBT VIOLETT ABER BLINKEND AUF ROTEM HINTERGRUND”. 
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0800430 

000440 

B00450 81 ESCAPE-SEQ-1 PIC X(8) VALUE X”1B5B33343B34366D”. 
B00460 Di ESCAPE-SEQ-2 PIC X(8) VALUE X”1B5B33353B34336D”. 
2004708 Di ESCAPE-SEQ-3 PIC X(7) VALUE X”"1B5B353B34316D”. 
000480 01 ESCAPE-SEQ-4 PIC X(7) VALUE X”1B5B3Q6D”. 

200490 

BBRSOd 81 DUMMY PICX. 


8895 1 [RE E22 20272 2127272727272 0272727272 727202 7227272727 2727227227272 727212720272 02 712021202712 0272 272 12,2 020202727202 202.202,2 0275 


0800528 PROCEDURE DIVISION. 

080805380 PROGRAMM-STEUERUNG SECTION. 
280548 PR-1BD0. 

280558 DISPLAY SPACE UPON CRT. 


200560 CALL X”A7” USING FUNKTION-18 PARAMETER-18. 
200570 

B00580 DISPLAY ESCAPE-SEQ-1. 

208590 DISPLAY TEXTN AT 8801. 
DAD6RR 

280618 DISPLAY ESCAPE-SEQ-2. 

080620 DISPLAY TEXT2 AT 1391. 
200630 

200640 DISPLAY ESCAPE-SEQ-3. 

200650 DISPLAY TEXT3 AT 1501. 
0800660 


000670* ALLE ATTRIBUTTE AUSSCHALTEN 
B00680 DISPLAY ESCAPE-SEQ-4. 
000698 

280708 ACCEPT DUMMY AT D181. 
Bad710 PR-9999. 

0898720 EXIT PROGRAM. 

200730 STOP RUN. 


TEXT DUNKELBLAU AUF HELLBLAU 


TEXT VIOLETT AUF GELB 
TEXT BLEIBT VIOLETT ABER BLINKEND AUF ROTEM HINTERGRUND 


Dialog-Testlauf (PGMI5) 
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PGM16: DOS-Funktionsaufrufe (Hardcopy mit ASS- 


8086) 
B88018 IDENTIFICATION DIVISION. 
2088828 PROGRAM-ID. PGM16. 
000030 AUTHOR. R. HABIB. 
000848 DATE-WRITTEN. B1-81-1987. 


D000858 DATE-COMPILED. B1-Apr-87 19:38. 


WWILLTELLESE ESS 22 2022 20272 21272020272 20272 202727202 127202 0272 2.272 20272721272 272.2 202.2 2020212020202 .2.2 22.202.227 
WEDHLELLEZ ES E22 2020202727202 027272727202 12 7872 2021272727272 7272727272 20272720272 7272 2 202.272 2022720202 722.2 72 02.2.2020273 


WEITET ES *% 
288090%** PROGRAMMFUNKTION: *% 
BDA dx“ xx 
BBd110%*%%* DIESES PROGRAMM ZEIGT IHNEN, WIE MAN WÄHREND DER EINGABE IN ** 
DO0120** EINER MASKE EINE HARDCOPY ERZEUGEN KANN. *% 
B00130%** *% 


200140** DEMONSTRIERT WIRD HIERBEI HAUPTSÄCHLICH DIE AUSFÜHRUNG EINES *% 
000150%** DOS-FUNKTIONSAUFRUFS MIT HILFE EINES ASSEMBLER-UNTERPROGRAMMS** 
DDD16O** *% 


8081 70:23 BB SRRBRBRBERBBRBREBBRBERRBBRBBIBIBBEBEBRRBBERBBGBREIEEIRIBIBIIEEN 
ILIRETEREREELERSTELELDERELEREEEEEDEREEUEL EUER EEE LEERE LELERDEN TE 
080198 ENVIRONMENT DIVISION. 

280208 CONFIGURATION SECTION. 

000210 SOURCE-COMPUTER. IBM-PC. 

880228 OBJECT-COMPUTER. IBM-PC. 

000230 SPECIAL-NAMES. 

800248 CONSOLE IS CRT. 

080258 INPUT-OUTPUT SECTION. 

080260 FILE-CONTROL. 

EIPALERLLELELET TEILTE EERETEEEUT EEE ERTERTETRSE ERDE EIER EEE 2 rer 
080280 DATA DIVISION. 

28008290 

B80300 WORKING-STORAGE SECTION. 

808318 


WELBYA ELLE EEE EZ SE 252222 2 2 202127202 2 22 2 2 2 2 2 2 20202 272727202 2720212 0272722020202 020272122202 2020272 72.27203 


000330* PARAMETER FÜR EIN/AUSGABE VON BILDSCHIRM-ATTRIBUTEN BZW. DATEN * 


D00 340: 3 BEREITET IEIEIEIEIEIEIEIENE III TEN IEIEI III III IH IE HIHI RE 


8803508 81 EIN-AUSGABE PIC X(U) VALUE X”B?”. 
008368 

000378 Bi SCHREIBEN-ZEICHEN PIC 9(2) COMP VALUE 1. 
008380 di SCHREIBEN-ATTR PIC 9(2) COMP VALUE 3. 
008398 

000480 Bi FORM-PARAMETER. 

800418 83 LAENGE PIC 9(4) COMP. 


000428 83 BILDSCHIRM-POS PIC 9(4) COMP. 
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000430 03 PUFFER-POS PIC 9(4) COMP. 

0044 D 3 REIT III IEIIEIEIEIEIEIEEIEIEREIE EEE EEE REITER KR RE 
0084508 B1 TASTEN-PROGRAMMIERUNG PIC 99 COMP VALUE 8. 
000468 Bi TASTEN-TABELLE. 

000478 03 TASTEN-NR PIC 99 COMP. 

200480% FUNKTIONSTASTE FI =1 

000490 83 FILLER PIC X(83) VALUE X”82083B”. 

B00500%* DIE TASTEN: ESC=2 

788518 03 FILLER PIC X(2) VALUE X”B11B”. 

000520%* ENDE-KENNZEICHEN 

200530 83 FILLER PIC X VALUE X”O0”. 


8805403 BR RRIRBRIREIRIGIIBIBIEIBIÄHIGIBIEIBIEIBIRIBIIEIBBIHIEIBIIIGEIER EHER EIER RE 


008568 91 PGM16-Ad-ATTR. 


800578 83 FILLER PIC X(8174) VALUE ALL X”03”. 
00589 83 FILLER PIC X(0054) VALUE ALL X”31”. 
208598 83 FILLER PIC X(88026) VALUE ALL X”03”. 
000608 83 FILLER PIC X(8853) VALUE ALL X”39”. 
800610 83 FILLER PIC X(8081) VALUE ALL X”31”. 
200629 83 FILLER PIC X(8826) VALUE ALL X”83”. 
000630 83 FILLER PIC X(8054) VALUE ALL X”31”. 
000640 03 FILLER PIC X(8339) VALUE ALL X”03”. 
800650 083 FILLER PIC X(8840) VALUE ALL X”13”. 
2800660 83 FILLER PIC X(0840) VALUE ALL X”03”. 
288670 83 FILLER PIC X(0048) VALUE ALL X”13”. 
208688 83 FILLER PIC X(0040) VALUE ALL X”03”. 
000690 83 FILLER PIC X(8048) VALUE ALL X”13”. 
280700 83 FILLER PIC X(0040) VALUE ALL X”03”. 
BD0718 83 FILLER PIC X(8840) VALUE ALL X"13”. 
200728 83 FILLER PIC X(0040) VALUE ALL X”03”. 
2800730 83 FILLER PIC X(8040) VALUE ALL X”13”. 
200740 83 FILLER PIC X(8913) VALUE ALL X”83”. 


288758 91 PGM16-00 

800768 03 PGM16-09-D101 PIC X(D080) VALUE " gm 
200778- ” " 
200788 03 PGM16-08-0201 PIC X(D081) VALUE "|". 

008798 03 FILLER PIC X(8878). 

800808 B3 PGM16-80-8288 PIC X(Bdd1) VALUE "|". 

2800818 03 PGM16-08-0301 PIC X(0081) VALUE ”|”. 

000820 83 FILLER PIC X(8078). 

000839 03 PGM16-00-0380 PIC X(Q881) VALUE ”|”. 

000840 03 PGM16-08-04D81 PIC X(Q881) VALUE ”|”. 

0800850 83 FILLER PIC X(8827). 

280869 03 PGM16-00-0429 PIC X(080380) VALUE "HARDCOPY MIT ASSEMBLER 
800878- "-ROUTINE”. 

000880 083 FILLER PIC X(8821). 

000899 03 PGM16-88-0480 PIC X(B801) VALUE "|". 

208908 03 PGM16-88-0501 PIC X(B881) VALUE ”]”. 
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08912 83 FILLER PIC X(0878). 

808920 B3 __PGM16-08-0588 PIC X(A8B1) VALUE "|". 
08930 083 __PGMI6-80-8601 PIC X(BRd1) VALUE "|". 
BAB94R 83 FILLER PIC X(0878). 

08958 083 __PGMIS-0B-B688 PIC X(BBA1) VALUE "|". 
200968 83 __PGM16-08-0701 PIC X(B081) VALUE "|". 
208970 83 FILLER PIC X(0878). 

D00980 083 __PGM16-00-0788 PIC X(B081) VALUE "|". 
208990 03 PGMI6-08-0801 PIC X(8807) VALUE "| Text:". 
ALT: 83 FILLER PIC X(0672). 

SALAT: 03 __PGMI6-Md-0880 PIC X(B0B1) VALUE "|". 
01020 83 _PGMI6-DE-QI9M1 PIC X(BA81) VALUE "|". 
01030 83 FILLER PIC X(2878). 

B01040 03 __PGMI6-Q0-0988 PIC X(B0B1) VALUE "|". 
21858 B3 _ PGMI6-88-1801 PIC X(BB01) VALUE "|". 
BA106H 83 FILLER PIC X(0878). 

B01070 03 _PGMI6-00-1888 PIC X(B081) VALUE "|". 
TALET: 83 PGMI6-DB-1101 PIC X(BQ81) VALUE "|". 
B01098 83 FILLER PIC X(B078). 

PART: B3 _ _PGM16-08-1188 PIC X(0801) VALUE "|". 
Baııın 03 _PCMI6-08-1201 PIC X(8801) VALUE "|". 
Ba1120 83 FILLER PIC X(2878). 

801130 083 __PGM16-00-1280 PIC X(B201) VALUE "|". 
DA1140 03 _ PGM16-80-1301 PIC X(8081) VALUE "|". 
801158 83 FILLER PIC X(2078). 

01160 B3 __PGM16-08-1388 PIC X(B081) VALUE "|". 
21178 083 _PGMI6-BQ-14B1 PIC X(B801) VALUE "|". 

a1 180 83 FILLER PIC X(2878). 

801198 B3 __PGMI6-B0-1480 PIC X(8081) VALUE "|". 
801200 83 _ PGM16-80-1501 PIC X(8081) VALUE "|". 
Ba1210 83 FILLER PIC X(8078). 

01220 83 _ _PGMI6-80-1580 PIC X(8801) VALUE "|". 
801238 03 PGMI6-BB-1601 PIC X(BRB1) VALUE "|". 
01240 83 FILLER PIC X(0878). 

801250 B3 __PGMI16-08-1688 PIC X(8801) VALUE "|". 
01268 083 __PGMI6-B0-1781 PIC X(0B88) VALUE 7 m———— 
BD1275-. | LI 
a1 280 B3 __PGMI6-BO-18B1 PIC X(8007) VALUE "[ ug”. 


281298 83 FILLER PIC X(8832). 
201308 03 PGM16-08-1848 PIC X(8005) VALUE "paul". 
801310 83 FILLER PIC X(8835). 


201328 B3 PGM16-04-1880 PIC X(Bdd1) VALUE "|". 
201330 83 PGM16-08-1981 PIC X(Bd18) VALUE "| FI || 2 Hardcopy”. 


801349 83 FILLER PIC X(8821). 
201350 03 PGM16-08-1948 PIC X(8813) VALUE "PEsScH Ende”. 
001360 83 FILLER PIC X(8827). 


801378 B3 PGM16-B8-1988 PIC X(0881) VALUE "|". 
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01380 03 _ PGMI6-00-2081 PIC X(0087) VALUE "| All”. 


801398 83 FILLER PIC X(8832). 

001408 B3 PGM16-08-2040 PIC X(8005) VALUE "ll" - 

B91410 83 FILLER PIC X(8835). 

801420 03 PGM16-88-2880 PIC X(BBd1) VALUE ”|”. 

001430 83 PGM16-08-2101 PIC X(BD8D) VALUE " Im 
B81448- u  '? _ 
081458 91 PGM16-81 REDEFINES PGM16-88 

001460 83 FILLER PIC X(8727). 

091478 03 PGM16-81-1088 PIC X(8048). 

001480 03 FILLER PIC X(8848). 

801490 B3 PGM16-81-11908 PIC X(0048). 

281500 83 FILLER PIC X(8848). 

B81518 03 PGM16-81-1208 PIC X(2048). 

881528 83 FILLER PIC X(8848). 

801530 03 PGM16-81-1308 PIC X(0048). 

001540 83 FILLER PIC X(8848). 


001559 03 PGM16-81-1488 PIC X(0048). 
WIRLITEELEEEEEETUPTETETELETERS ET EEE EEE EUER TELELERTIEETEETT 
881578 PROCEDURE DIVISION. 

001580 PROGRAMM-STEUERUNG SECTION. 

B01598 PR-1088. 

D81600 PERFORM VORLAUF. 

BR1618 PERFORM VERARBEITUNG UNTIL TASTEN-NR = 2. 

B81620 PR-9999. 

881630 EXIT PROGRAM. 

0801640 STOP RUN. 

YIRRLTERERLEETERO STE SERDUERSE EEE EEETTORES EEE DEUDELERTEREREREEEEERE TE 
BO1660 VORLAUF SECTION. 

BR1678 VOR-188B. 

001688 DISPLAY SPACE UPON CRT. 

801698 

2881708 CALL X”BÖ” USING TASTEN-PROGRAMMIERUNG TASTEN-TABELLE. 

2881710 


281720 MOVE 1689 TO LAENGE. 

881738 MOVE 1 TO BILDSCHIRM-POS PUFFER-POS. 

281748 

881759 CALL EIN-AUSGABE USING SCHREIBEN-ATTR FORM-PARAMETER 
801760 PGM16-88-ATTR. 


881778 VOR-9999. 

801788 EXIT. 

201 79:33 BB BBRBBRBERGRRBRBEBBIBSBBIBEBBBBIBRBEBBBIBBEBBBIBIEBESERBBIBISREEITIEEN 
Bd1808 VERARBEITUNG SECTION. 

BH1810 VER-1DBR. 

001820 CALL EIN-AUSGABE USING SCHREIBEN-ZEICHEN FORM-PARAMETER 
801830 PGM16-88. 

801840 
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2891850 ACCEPT PGM16-81 FROM CRT. 
BD186D 
B81870 IF TASTEN-NR = 1 CALL "HARDCOPY”, 


BKd1880 VER-9999. 
881890 EXIT. 


u En u 2 2.2.2 2.2.2. 2.2.2. 2.2.2 2.2.2.2. 2 2.2.2. 2 2 2.2 2.2 2.2.2 2.2 2 2.2 2 2.2 2 2.2 2.2.2 2.2.2 2 2.2 2.20. 


.% % 
’ 

;‚* Assembler-Programm zum Erzeugen einer Hardcopy. * 
.% %* 


’ 
in 5 5.5 5 2.2.2.2 2.2.2.2 2.2.2 2 2. 2.2.2 2.2. 2 2 2.2.2 2. 2.2 2 2. 2.2 2 2. 2.2 2 2 2.2 2 2 2 2.2.2 2 2 2.2. 


CSEG SEGMENT 
ASSUME CS: CSEG;DS:CSEG 
ORG 100H 
HARDCOPY PROC FAR 
PUSHF 
INT p) 
POPF 
RET 
HARDCOPY ENDP 
CSEG ENDS 
END HARDCOPY 


HARDCOPY MIT ASSEMBLER-ROUTINE 


Testen Sie die Assembler-Schnittstelle 
nit diesem Progrann. 


F] Hardcopy 


Dialog-Testlauf (PGM 16) 
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PGM17: Aktivieren der Benutzer-Funktionstasten/ 
Vorbelegung bestimmter Funktionstasten 


008818 IDENTIFICATION DIVISION. 


000020 PROGRAM-ID. PGM17. 
000038 AUTHOR. R. HABIB. 
000048 DATE-WRITTEN. 81-01-1987. 


0800050 DATE-COMPILED. B1-Apr-87 19:31. 


WITT EEE E22 8222 22 202 272 2 022 27272 20272727 221272727272 72727272 027272720272 12 722 22727202722 20272 202 72,2 020272, 2 027 
WEILE EE SE E22 22 2 2 272 2222 2272 2 2202 22 22 2222 202 2 272 202022 202 2 2 272 272720272722 702 0272027120272 2027270 


VELLELEE xx 
A02A9B** PROGRAMMFUNKTION: x 
DAR 1 DDx* *% 


081 10%** DAS PROGRAMM DEMONSTRIERT DIE PROGRAMMIERUNG DER BENUTZER- *% 
B00120%*%* FUNKTIONSTASTEN MIT HILFE DES ASSEMBLER-UNTERPROGRAMMS X”AF”.%*%* 


D00130** xx 
D80148%* MIT UNTERSTÜTZUNG DER CTRL- UND ALT-TASTEN WERDEN AUS DEN *% 
2808150%* FUNKTIONSTASTEN F1-F19 38 FUNKTIONSTASTEN GEMACHT. *% 
DON160*% *% 
D00170%** MIT ALT+FUNKTIONSTASTE KANN EIN TEXT MIT BIS ZU 72 ZEICHEN *% 
000180%** FÜR DIE VERWENDETE TASTE GESPEICHERT WERDEN. xx 
DOA1IO** n% 
200200%* MIT CTRL+FUNKTIONSTASTE KANN DER TEXT GELÖSCHT WERDEN. *% 
200210%** *% 
000220** MIT DER FUNKTIONSTASTE SELBST KANN DER TEXT ABGERUFEN WERDEN. *?% 
200230%*% *% 
000240%** UM DEN ABGERUFENEN TEXT NICHT NUR AM BILDSCHIRM ANZUZEIGEN, ** 
000250** WIRD HIER EINE ROUTINE AUSGEFÜHRT, WONACH DER TEXT IM xx 
000260%** EINGABEFELD AN DIE AKTUELLE CURSOR-POSITION EINGEFÜGT WIRD. ** 
000270%*%* xx 


WIIWATELLES EEE 2 22 2 202 021202727272 72 7272 202 02012727272 7272 2727212 2127272727272 2727272727222 0272 2727122221212 72 72,2,2 27. 
WIIPAT EEE EEE 22 20202 212702027272 0212 12702727272 721202127272 72 7272 727272727272 1202 2127 2727227272 21202 2727272727272 22727272727 
000308 ENVIRONMENT DIVISION. 

2008310 CONFIGURATION SECTION. 

208320 SOURCE-COMPUTER. IBM-PC. 

2003308 OBJECT-COMPUTER. IBM-PC. 

000340 SPECIAL-NAMES. 

208358 CURSOR IS CURSOR-POS, 

800368 CONSOLE IS CRT, 

200378 CRT STATUS TASTEN-FELD. 

VIIBETESZES EEE 22 2 2 2 2 2 22 202 20202 2 22 2 202 2 202 202722 212227212 2127272727272 127272 2 1272212 12212121272 27202/270 
080808390 DATA DIVISION. 

B0040Q WORKING-STORAGE SECTION. 

00418 

000420 81 TASTEN-FELD PIC XXX. 
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008430 81 FILLER REDEFINES TASTEN-FELD. 
200440 085 KZ PICX. 
2800450 88 TASTE-GEDRUECKT VALUE 1. 


200460 85 TASTEN-NR PIC 99 COMP. 

0800470 85 FEHLER-KZ PICX. 

200480 

000490 81 FLAG PIC 99 COMP VALUE 1. 
200508 

DB0510 O1 PARAM-BENUTZER-TASTEN. 

800520 85 AKTIV-DEAKTIV PIC 99 COMP. 

200530 05 PARAM-2 PIC X VALUE "1". 
800540 085 ERSTE-NUMMER PIC 99 COMP. 

800550 85 ANZAHL-TASTEN PIC 99 COMP. 


200560 


28057 DB BEREITETE III WEITE IEIIIEIEIIIIEIIIOEIBIIOEEIIIEHER IR ICNEN 
000580%* PARAMETER FÜR EIN/AUSGABE VON BILDSCHIRM-ATTRIBUTEN BZW. DATEN * 
2895 Id 33 3 3 3 ERIEIRIEEIEIIEIEIEIEIEIEIEEIIEIEIIIEIEIEIIEIETEIIOIEIEIEIIIEIEIIIEIEIEI IHK ICHER 
B006HD 

BOR61Id Bi EIN-AUSGABE PIC X(1) 
800620 Bi SCHREIBEN-ATTR 
200639 

000648 81 FORM-PARAMETER. 
800658 03 LAENGE PIC 9(4) COMP VALUE 72. 
800660 83 BILDSCHIRM-POS PIC 9(4) COMP VALUE 1849. 
000678 83 PUFFER-POS PIC 9(4) COMP VALUE 1. 
d00680 

800690 01 INVERTIERT PIC X(72) VALUE ALL X”78”. 
D0nTad Di NORMAL PIC X(72) VALUE ALL X”97”. 
DIT I DREIER EEE EHE TER EU EEE ER EIER RR 
200728 

800738 81 TEXTE. 


VALUE X”B7”. 
PIC 9(2) COMP VALUE 3. 


080740 85 FILLER PIC X(8) 

800758 VALUE "Fi ===)" 
800760 05 FILLER PIC X(72). 
200778 85 FILLER PIC X(8) 

200788 VALUE "F2 ===)" 
8808798 85 FILLER PIC X(72). 
B0R8dn 85 FILLER PIC X(8) 

Bn0810 VALUE "F3 ===)" 
800820 85 FILLER PIC X(72). 
000830 85 FILLER PIC X(8) 

000840 VALUE "”F4 ===)" 
200858 85 FILLER PIC X(72). 
080869 85 FILLER PIC X(8) 

200870 VALUE "F5 ===)" 
WLLETT 85 FILLER PIC X(?72). 
280899 85 FILLER PIC X(8) 
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2800900 VALUE "F6 ===>". 
BR0I1D 85 FILLER PIC X(72). 

0800920 085 FILLER PIC X(8) 

800930 VALUE "F?7 ===)". 
200940 85 FILLER PIC X(72). 

800950 85 FILLER PIC X(8) 

200960 VALUE "F8 ===>" 
208978 85 FILLER PIC X(72). 

2808980 85 FILLER PIC X(8) 

280990 VALUE "F9 ===)" 
281000 85 FILLER PIC X(72). 

BB1810 85 FILLER PIC X(8) 

281020 VALUE "Fi1ß ===>". 
891030 85 FILLER PIC X(72). 

801048 

0010508 Di TEXTTABELLE REDEFINES TEXTE. 

D01060 85 TASTEN-ELEMENT OCCURS 18. 

201070 18 TASTE PIC X(8). 

201080 18 TASTEN-TEXT PIC X(72). 

281098 

DO 1 1 DD x 336 36 6 ae ac ae ar ae at ae ae REINER IE II EI IEIIHHIHIIIOI I HEINE ICH HEN 
Baı110 81 IND PIC 9(2). 

801120 

BB1130 81 FELD. 

0881140 65 HILFI PIC X(8). 

881150 85 HILF2 PIC X(72). 

0881168 

BB1178 Bi CURSOR-POS. 

BB1180 05 ZEILE PIC 9(2). 

881190 085 SPALTE PIC 9(2). 

081200 

Bd1210 Bi ZEIGER PIC 9(3). 

801220 

801230 Bi DATEN PIC X(889). 
01248 Di DUMMY PICX. 


801 250 3 9 BB RBHRREIBRHRIEIRRHHIEIEIGSHERIEISREEIEIBGEIBEBEIGHEIEISGEIIEIBHIIIIGIHIEHER N 


001260 PROCEDURE DIVISION. 
081278 STEUER SECTION. 
001288 ST-1000. 


281290 PERFORM VORLAUF. 
201308 PERFORM VERARBEITUNG UNTIL TASTEN-NR = 08. 
881318 DISPLAY SPACE UPON CRT. 


881328 ST-9999. 


801330 
081340 


EXIT PROGRAM. 
STOP RUN. 


991 35 VHRRRBBIIHHHIIIIIAHEIIEIIIHHHIEIEIGIBIOIIEIGIIHIHIHIEIGIIIIHIHIHIIIBIIOIHOIEHAERK 


001360 VORLAUF SECTION. 
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881378 VOR-1080. 


281388 
801398 
881408 
291410 
281420 
801430 
201440 
801458 
801460 


VOR-9999. 


DISPLAY SPACE UPON CRT. 

MOVE 8191 TO CURSOR-POS. 

DISPLAY "VORBELEGEN = ALT+FUNKTIONSTASTE” AT 1281. 
DISPLAY "LÖSCHEN = CTRL+FUNKTIONSTASTE” AT 1391. 
DISPLAY "ABRUFEN = FUNKTIONSTASTE” AT 1481. 
DISPLAY "ESC = ENDE” AT 1681. 
MOVE HIGH-VALUE TO TASTEN-NR. 

EXIT. 


D9 14703: 9 BREITET IE TEEN TEE EIER KERN 
0014808 VERARBEITUNG SECTION. 
DA1498 VER-1DDR. 


801508 
281510 
801520 
201530 
081540 
0981558 
801560 
881578 
001588 
881590 
01600 
001618 
0881628 
801650 
001640 
001658 
001668 
0801678 
B01680 
001698 
291780 
81718 
881728 
0801738 
091748 


MOVE 1 TO AKTIV-DEAKTIV. 
MOVE 8 TO ERSTE-NUMMER. 
MOVE 41 TO ANZAHL-TASTEN. 
CALL X”AF” USING FLAG PARAM-BENUTZER-TASTEN. 


ACCEPT DATEN AT 8101. 
IF TASTE-GEDRUECKT 
MOVE TASTEN-NR TO IND 
IF TASTEN-NR NOT < 31 AND NOT > 48 
SUBTRACT 38 FROM IND 
PERFORM SPEICHERN 


ELSE IF TASTEN-NR NOT < 1 AND NOT > 10 
PERFORM ABRUFEN 


ELSE IF TASTEN-NR NOT < 21 AND NOT > 30 
SUBTRACT 28 FROM IND 
PERFORM LOESCHEN 
ELSE CALL X”ES”. 


VER-9999. 


EXIT. 


09 1 KEY LEE 2 EEE EEE 22 2020202027272 72122 0272712120272 7272727272 272 722721272272 72 722 7212/2727272 72020212 027270202 272021271202 7270 


001760 SPEICHERN SECTION. 
BH1778 SP-1000. 


801780 
881798 
201808 
BO1810 
801828 
201839 
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INVERTIERT. 


MOVE TASTEN-ELEMENT (IND) TO FELD. 


001840 
281859 
001869 
081870 
001880 
081890 
2881988 
B81918 
881928 
881930 
2801940 
891950 
801960 
801978 
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DISPLAY HILFI AT 2491. 
MOVE 8 TO AKTIV-DEAKTIV. 
CALL X”AF” USING FLAG PARAM-BENUTZER-TASTEN. 


ACCEPT HILF2 AT 2489. 
MOVE HILF2 TO TASTEN-TEXT (IND). 


MOVE SPACE TO FELD. 

DISPLAY FELD AT 2489. 

CALL EIN-AUSGABE USING SCHREIBEN-ATTR FORM-PARAMETER 
NORMAL. 


SP-9999. 


EXIT. 


DD 1 I BED RREREEEEEERIEIEIIIIIIIIIIHIIHIIIIEIEIEIEIEIIIIIIIIHIHIBIHHIHHIGIGIHRK 


B01998 ABRUFEN SECTION. 
Bd2000 AB-1000. 


802018 
802020 
002030 
802040 


DO2050%**% 


802060 
002078 
002088 


MOVE TASTEN-TEXT (IND) TO HILF2. 
DISPLAY HILF2 AT CURSOR-POS. 


UMRECHNEN DER CURSOR-POSITION IN EINEM POINTER 
COMPUTE ZEIGER = (ZEILE - 1) * 80 + SPALTE. 
STRING HILF2 DELIMITED BY SIZE INTO DATEN 

WITH POINTER ZEIGER. 


002090 AB-9999. 


802108 


EXIT. 


0921 ı [EEE 2 272 27272 1272 7227027021272 7272727275 7272727272727 27272 727202727202 72°2°272720272727202°20202720270720272°202 72027202 27202020 


882128 LOESCHEN SECTION. 
002138 LO-1888. 


002148 
802158 
002169 


MOVE SPACE TO TASTEN-TEXT (IND). 


892178 LO-9999. 


002180 


EXIT. 
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VORBELEGEN = ALT+FUNKTIONSTASTE 
LOSCHEN CTRL+FUNKTIONSTASTE 
ABRUFEN FUNKTIONSTASTE 


Dialog-Testlauf (PGM17) 
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PGMI18: Bestimmen der Bildschirmgröße 


BRR018 IDENTIFICATION DIVISION. 


800828 PROGRAM-ID. PGM18. 
800038 AUTHOR. R. HABIB. 
000848 DATE-WRITTEN. 81-81-1987. 


288050 DATE-COMPILED. Bi-Apr-87 19:32. 


DDDD EDER IEIIEIEIIIEIEI III HIHI NIE IE HET IE II ER ERKRK 
DB. 0070 333 33 BRRRIIHIIBTIBIIBIIEIIGTIGIHBIEIBIEIIEI III III TEICHE 


DRD080** “x 
000090** PROGRAMMFUNKTION: *% 
BDO O0“ xx 
BB0110%*%%* MIT DIESEM PROGRAMM KÖNNEN SIE DIE ANZAHL DER BILDSCHIRM- *% 
200120%** ZEILEN (BIS 25) BESTIMMEN. “r 
BOB130** xx 


000140%*%* DAMIT DIE WIRKUNG DES PROGRAMMS BESSER DEMONSTRIERT WERDEN *% 
BAB150*%* KANN, WIRD DER BENUTZER AUFGEFORDERT, EINE DATEI ANZUGEBEN, *% 


B00160** DIE ANSCHLIESSEND IM FESTGELEGTEN BILDSCHIRMBEREICH ”% 
BRA1T7B** ANGEZEIGT WIRD. xr 
DRN180*%* *% 


DOD 1 ID KREIEREN RI RE 
DIODLDD Hr ERREICHTE EHE EIER EIER RER 
888210 ENVIRONMENT DIVISION. 

2088228 CONFIGURATION SECTION. 

2020238 SOURCE-COMPUTER. IBM-PC. 

000248 OBJECT-COMPUTER. IBM-PC. 

000250 SPECIAL-NAMES. 

000268 INPUT-OUTPUT SECTION. 

000278 FILE-CONTROL. 

000280 SELECT EINGABE ASSIGN TO DATEI-NAME 

200290 ORGANIZATION IS LINE SEQUENTIAL. 

800 3) PU 3 3 3 BREITER TEE IEKEEREIEIOIIEIEEETIEIEE HER RER 
080310 DATA DIVISION. 

000320 

200338 FILE SECTION. 

000340 

2008350 FD EINGABE. 

200360 01 E-SATZ PIC X(88). 


DOO3 7 Or IIEIIIIIIIIIIIIIIIEIEIEIE EIERN N 


000380 WORKING-STORAGE SECTION. 


200390 

200400 Di DATEI-NAME PIC X(14) VALUE ”"PGMB1.CBL”. 
008410 Bi SCHALTER PIC 9 VALUE ®. 

DO0420 88 DATEI-ENDE VALUE 1. 

0800430 
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B00448 Bi CURSOR-POS. 


200450 85 ZEILE PIC 99. 

000460 85 SPALTE PIC 99. 
ICHENDERERERERFETERTETERTTERDERERUELERTERTEETESERTEEETEEEREDER TER TEE DE 
B00488 Di ZEICHEN PICX. 

08004908 Bi TASTATUR-STATUS PIC 99 COMP. 

200509 

B008518 d1 FUNKTION PIC 99 COMP VALUE 4. 
290520 

0808530 81 ERSTE-ZEILE PIC 29. 

800548 81 LETZTE-ZEILE PIC Z9. 

800550 

800560 Di AF-PARAMETER. 

000570 85 E-ZEILE PIC 99 COMP. 

200580 85 L-ZEILE PIC 99 COMP. 

0800598 85 ANZAHL-SCROLL PIC 99 COMP VALUE 1. 


DD 60 3 RITTER II GITTER IE IE IE III IE III II III III HIER RE 
Öß0618 PROCEDURE DIVISION. 

008620 PROGRAMM-STEUERUNG SECTION. 

000638 PR-1D00. 


000640 


PERFORM VERARBEITUNG UNTIL DATEI-NAME = SPACE. 


208658 PR-9999. 


008660 
800670 


EXIT PROGRAM. 
STOP RUN. 


00068 0:33 3 EIRIBBREIBGRIOEIIBIEIBTIGTIEBEIBIBIGEIGEIT III HEN 


000698 VERARBEITUNG SECTION. 
00708 VER-188D. 


280718 
000720 
800730 
800740 
080758 
800769 
200770 
080780 
800798 
000808 
800818 
200820 
208830 
200840 
208858 
D00860 
B00878 
B00880 
200898 
200909 
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DISPLAY SPACE UPON CRT. 

DISPLAY "Bestimmen Sie die Bildschirmgröße” AT 8130. 
DISPLAY "Erste Zeile auf --> ” AT 82021. 

DISPLAY "Letzte Zeile auf--> ” AT 0248. 

DISPLAY 

"Geben Sie den Dateinamen ein (Leerzeichen = Ende) -->” 
AT 2501. 


ACCEPT ERSTE-ZEILE AT 8228. 
ACCEPT LETZTE-ZEILE AT 0269. 
ACCEPT DATEI-NAME AT 2568. 
MOVE 81 TO SPALTE. 

MOVE LETZTE-ZEILE TO ZEILE. 


IF DATEI-NAME NOT = SPACE 
MOVE ERSTE-ZEILE TO E-ZEILE 
MOVE LETZTE-ZEILE TO L-ZEILE 
MOVE 8 TO SCHALTER 
OPEN INPUT EINGABE 
PERFORM LESEN UNTIL DATEI-ENDE 
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209910 CLOSE EINGABE. 

000928 VER-9999. 

280930 EXIT. 
IIEIVEREEFEPPETTTTREEETT EEE E TEE EDEEEEEEDEREEDEEDERSEELEIDE NT EE 
0080958 LESEN SECTION. 

BODI6D LES-1880. 

280979 READ EINGABE AT END MOVE 1 TO SCHALTER, 


208988 GO TO LES-9999. 
2008998 

201008 CALL X”A7” USING FUNKTION AF-PARAMETER. 
DA1D19 DISPLAY E-SATZ AT CURSOR-POS. 

201020 

801038 CALL X”D9” USING TASTATUR-STATUS. 

281040 IF TASTATUR-STATUS = 8 

201058 DISPLAY 

0801060 ">3>>>>>> Eine beliebige Taste hält an <<<<<<<<<” AT 2415 
881070 GO TO LES-9999 

D81080 ELSE CALL X"83” USING ZEICHEN. 

281098 

BO1108 LES-2RBR. 

Ba1110 CALL X”D9” USING TASTATUR-STATUS 

B01128 IF TASTATUR-STATUS = 8 

Bd1130 DISPLAY 

BD1140 ">»3»>>>>>> Eine beliebige Taste setzt fort <<<<<<<<<” AT 
281158 2415 

BO1168 GO TO LES-2088 

881170 ELSE CALL X”"83” USING ZEICHEN. 

BH1188 LES-9999. 

801198 EXIT. 


Bestimmen Sie die Bildschirmgroße 
etzte Zeile auf--> 


Geben Sie den Dateinamen ein (Leerzeichen = Ende) --> PGM18.CBL 


Dialog-Testlauf (PGM18) 
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Bestimmen Sie die Bildschirmgröße 
Erste Zeile auf --> 5 Letzte Zeile auf--> 28 


RKERHKKRRRRRRRRAERRRRARKHRRRIRAHKERAUNRNRARRRIRIEHAHNHHKHARKHRKRKRRRRRRR 
%% 

PROGRAMMFUNKTION: ur 
%% 

MIT DIESEM PROGRAMM KÖNNEN SIE DIE ANZAHL DER BILDSCHIRM- x 
ZEILEN (BIS 25) BESTIMMEN. vr 
%% 

DAMIT DIE WIRKUNG DES PROGRAMMS BESSER DEMONSTRIERT WIRD, *% 
WIRD DER BENUTZER AUFGEFORDERT, EINE DATEI ANZUGEBEN, DIE *% 
ANSCHLIESSEND IM FESTGELEGTEN BILDSCHIRMBEREICH ANGEZEIGT *% 
WIRD. wr 


*%x 
AKARKKKKKERNANKRRUHNRNTRRHRNNRHHKRNRNN HN EHEN AN RHEIN 
KAEARRRRERRRRRRRRRRINAARRRRRRRERRITRNTHRRRNTRRIR RATTEN AN TIER 


ENVIRONMENT DIVISION. 


»>>>>>>> Eine beliebige Taste halt an <<<cL<<£<csKe 
Geben Sie den Dateinamen ein (Leerzeichen = Ende) -- 


Dialog-Testlauf (PGM 18) 
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PGM19: Umbenennen einer Datei mit selbstge- 
schriebener ASSEMBLER-Routine 


2800180 IDENTIFICATION DIVISION. 


000020 PROGRAM-ID. PGM19. 
800038 AUTHOR. R. HABIB. 
800048 DATE-WRITTEN. 81-81-1987. 


2880058 DATE-COMPILED. B1-Apr-87 19:32. 


WITT EEE EE ES 82027278722 21272787278 27272727212 72727272 027272727272 0212727202272 120272 027272702 120272 2122020272272 72 7272027 
VILLRDELDEE ES 2 2020202027272 7272727202702 7202121221272 72 72727272727 27202021272 12127270202 727 202020202027 272 27272727027 2720272 .2.2270 


WLLLIT ES ”% 
BD0098** PROGRAMMFUNKTION: xx 
BRD 1DO** Rx 
BBH110%** MIT DIESEM PROGRAMM KÖNNEN SIE VON COBOL AUS EINE DATEI *% 
B00120%** UMBENENNEN. DAS PROGRAMM RUFT EINE SELBSTGESCHRIEBENE *% 
BOA130** ASSEMBLER-ROUTINE AUF UND ÜBERGIBT DABEI EINEN BEREICH *% 
BRD140** -NACH DEM FCB-AUFBAU-, IN DEM DIE ALTEN UND NEUEN DATEINAMEN *%* 
DRD150** ZUR VERFÜGUNG GESTELLT WERDEN. Rx 
BOD1I6D** *% 


WIRRIELELEEEREEES EEE SEE 2225 E22 272272272 272727272 7272757275 0272 027202777272 °272 02720272 7272°27272727027 
B80 180 33H OBSTEIG ICH RR 


08881908 ENVIRONMENT DIVISION. 
08208 CONFIGURATION SECTION. 
0800210 SOURCE-COMPUTER. IBM-PC. 
000228 OBJECT-COMPUTER. IBM-PC. 
000230 SPECIAL-NAMES. 

800240 CONSOLE IS CRT. 
08088258 INPUT-OUTPUT SECTION. 
000260 FILE-CONTROL. 


WlYALEELEE ESS E22 88202 2 2 2202727272022 127272 20127272 2121272727 2120272027 2721272027202 12 72020202 12.2 0202727272 02.2.202 027 


00280 DATA DIVISION. 


2800298 

000308 WORKING-STORAGE SECTION. 

008310 

000320 Di ENDE-MELDUNG PIC X(15) VALUE 
200330 "Ende (J/N) ===>". 

000340 

280350 Di  ENDE-KENNZEICHEN PIC X VALUE SPACE. 
B00360 88 ENDE VALUE "I" "5°, 
000370 

200380 di PARAMETER. 

808399 85 FILLER PIC X VALUE X”dß”. 
2808400 85 NAME-ALT PIC X(8). 

200418 085 ERW-ALT PIC X(3). 

200420 85 FILLER PIC X(5). 
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000438 85 NAME-NEU 
000440 085 ERW-NEU 
000450 85 FILLER 
200460 85 FEHLERCODE 
800478 


PIC X(8). 
PIC X(3). 
PIC X(5). 
PIC 99 COMP. 


DODSD RR EIEIIIEIEIEIEEEEEEERERREERREERREREIEREIEIEIIII II HE IEIERE RE 


000490* PARAMETER FÜR EIN/AUSGABE VON BILDSCHIRM-ATTRIBUTEN BZW. DATEN * 


0005 Bd 333393 3 33 IRINA IEIIIGIIIHIIBII BIBI IE EIER IRRE IEKR 


BBB518 91 
200528 
200538 91 
000548 91 
288558 
D00568 91 
808578 91 
800589 
800598 91 
B08608 
B00610 
008628 


EIN-AUSGABE 


LESEN-ZEICHEN 
SCHREIBEN-ZEICHEN 


LESEN-ATTR 
SCHREIBEN-ATTR 


FORM-PARAMETER. 
83 LAENGE 

83 BILDSCHIRM-POS 
83 PUFFER-POS 


PIC X(1) VALUE X”B7”. 
PIC 9(2) COMP VALUE 8. 
PIC 9(2) COMP VALUE 1. 


PIC 9(2) COMP VALUE 2. 
PIC 9(2) COMP VALUE 3. 


PIC 9(4) COMP. 
PIC 9(4) COMP. 
PIC 9(4) COMP. 


WIRBT EL EEE 22 2020202020202 2 2 202 202 2 2 2 2 2 2 2 2 2 2021212727272 7270202702 2027202727272 7272 0272727272122 2727272727202 02 02027 


000648 Bi DISPLAY-FELD 
080659 
808678 81 PGM19-BQ-ATTR. 


B00688 83 FILLER 
0800690 83 FILLER 
200788 83 FILLER 
08718 83 FILLER 
200728 83 FILLER 
000730 83 FILLER 
200748 83 FILLER 
800750 83 FILLER 
808760 83 FILLER 
808770 03 FILLER 
200788 83 FILLER 
000798 83 FILLER 
200880 83 FILLER 
B0oR81B 03 FILLER 
0800820 83 FILLER 


B0B830 91 PGM19-88 
200848 83 

B00850- ” 

200868 03 

200878 83 FILLER 
000880 83 

280898 03 

208900 83 FILLER 
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PIC 9(82). 


PIC X(0181) VALUE ALL X”83”. 
PIC X(8826) VALUE ALL X”31”. 
PIC X(8854) VALUE ALL X”d3”. 
PIC X(8826) VALUE ALL X”31”. 
PIC X(0854) VALUE ALL X”03”. 
PIC X(0826) VALUE ALL X”31”. 
PIC X(0138) VALUE ALL X”03”. 
PIC X(0888) VALUE ALL X”13”. 
PIC X(8dd1) VALUE ALL X”03”. 
PIC X(8803) VALUE ALL X”13”. 
PIC X(0148) VALUE ALL X”03”. 
PIC X(8888) VALUE ALL X”13”. 
PIC X(0881) VALUE ALL X”03”. 
PIC X(0883) VALUE ALL X”13”. 
PIC X(1323) VALUE ALL X”03”. 


PGM19-QB-B101 PIC X(BD8B) VALUE "m— 


PGM19-08-8201 PIC X(BBd1) VALUE "|". 


PIC X(8878). 


PGM19-20-0289 PIC X(BAB1) VALUE "|”. 
PGM19-98-0381 PIC X(BRB1) VALUE "|". 


PIC X(8078). 
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BO0I1R 03 PGM19-Bd-0380 PIC X(BBA1) VALUE "|". 
200928 03 PGM19-80-0481 PIC X(BBd1) VALUE "|". 


200938 83 FILLER PIC X(8822). 

VWEIELT 03 PGM19-88-8424 PIC X(8822) VALUE "Umbenennen einer Datei 
200958- ”. 

880968 83 FILLER PIC X(8834). 


200979 03 PGM19-00-0480 PIC X(BBd1) VALUE "|". 
000988 d3 PGM19-08-08581 PIC X(Bd01) VALUE "|". 
800998 83 FILLER PIC X(0878). 

D8 1008 03 PGM19-00-0588 PIC X(Bdd1) VALUE "|". 
BO1D010 03 PGM19-B8-B6Bd1 PIC X(BBd1) VALUE "|". 
001028 83 FILLER PIC X(8078). 

281030 03 PGM19-00-0688 PIC X(BB81) VALUE "|". 
DO1040 03 PGM19-00-0701 PIC X(0034) VALUE "| Dateiname (alt) -- 
BB1850- "-) .”. 

201069 83 FILLER PIC X(8845). 

801078 03 PGM19-80-0788 PIC X(Bdd1) VALUE "|”. 
001088 03 PGM19-80-B8d1 PIC X(B801) VALUE "|". 


881090 83 FILLER PIC X(8878). 

881108 D3 PGM19-80-0880 PIC X(8801) VALUE "1". 

BR11190 3 PGM19-08-8901 PIC X(8034) VALUE "| Dateiname (neu) -- 
001128- ”-) . 

281130 03 FILLER PIC X(8845). 


DO1140 03 PGM19-08-0980 PIC X(B881) VALUE "|". 
DD1158 03 PGM19-90-1081 PIC X(B881) VALUE ”|”. 
881160 83 FILLER PIC X(8078). 
2891178 B3 PGM19-DQ-1088 PIC X(Bdd1) VALUE ”]”. 
891180 d3 PGM19-Bd-1191 PIC X(B8g1) VALUE ”|”. 
891198 83 FILLER PIC X(8878). 
001209 03 PGM19-98-1180 PIC X(B081) VALUE "|". 
881210 03 PGM19-08-1281 PIC X(B801) VALUE ”]”. 
281228 83 FILLER PIC X(8978). 
801239 03 PGM19-08-1288 PIC X(B801) VALUE "|". 
001240 03 PGM19-88-1301 PIC X(0081) VALUE ”]”. 
2881258 03 FILLER PIC X(8878). 
801260 03 PGM19-88-1380 PIC X(BdB1) VALUE "|". 
001278 03 PGM19-B9-1401 PIC X(B801) VALUE ”|”. 
001280 03 FILLER PIC X(8078). 
291290 83 PGM19-08-1480 PIC X(@B881) VALUE "|". 
801308 03 PGM19-98-1501 PIC X(B881) VALUE "|". 
881318 83 FILLER PIC X(80878). 
801320 03 PGM19-09-1588 PIC X(D881) VALUE ”|”. 
801330 03 PGM19-88-1601 PIC X(D8Bd1) VALUE "|". 
081340 83 FILLER PIC X(8878). 
0801358 03 PGM19-08-16808 PIC X(B881) VALUE ”|”. 
B01368 03 PGM19-09-1781 PIC X(Bdd1) VALUE ”|”. 
201378 83 FILLER PIC X(B078). 
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001380 
281398 
D01488 
801418 
001420 
801438 
01440 
001450 
B01468 
081478 
001480 


001490- 
Bd1508 91 


BB1518 
891520 
881530 
D81548 
881558 
8981568 
881578 
001580 


D3 PGM19-00-1788 PIC X(BB8B1) VALUE ”|”. 

03 PGM19-88-1801 PIC X(BB881) VALUE ”|”. 

83 FILLER PIC X(8978). 

03 PGM19-Bd-1888 PIC X(Q081) VALUE "|". 

03 PGM19-08-1981 PIC X(B0B1) VALUE "|". 

83 FILLER PIC X(0078). 

03 PGM19-D8-1988 PIC X(BQ81) VALUE ”|”. 

03 PGM19-00-2081 PIC X(2881) VALUE ”]”. 

83 FILLER PIC X(8878). 

03 PGM19-89-2088 PIC X(B801) VALUE "|". 

03 PGM19-98-2101 PIC X(BD8Q) VALUE * mm 
———— me] '' 


PGM19-91 REDEF INES PGM19-98 
83 FILLER PIC X(8585). 
83 PGM19-81-8726 PIC X(B808). 
83 FILLER PIC X(8881). 
03 PGM19-81-0735 PIC X(8883). 
83 FILLER PIC X(8148). 
B3 PGM19-81-0926 PIC X(Ddd8). 
83 FILLER PIC X(2891). 


03 PGM19-81-8935 PIC X(8883). 


WRELLERLELELETTEETEETEETEETTETELTIELEUUE EEE EEELUOEEELEUDEREEEEEEE NETT 
0016088 PROCEDURE DIVISION. 

BB1618 PROGRAMM-STEUERUNG SECTION. 

001628 PR-1080. 


001639 


PERFORM VERARBEITUNG UNTIL ENDE. 


001648 PR-9999. 


001658 
801668 


EXIT PROGRAM. 
STOP RUN. 


VERWIES EZ ES 2202027272082 727272 21272727272 0272727272 0272 7272727272 72727272 2727272727272 727272727202 72 727272720272 7272 72727020275 


801680 VERARBEITUNG SECTION. 
B81698 VER-1B80. 


881788 
881718 
881720 
201738 
891749 
891750 
801760 
881778 
801780 
2801798 
001808 
BH1810 
881820 
001830 
081840 
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DISPLAY SPACE UPON CRT. 


MOVE 1680 TO LAENGE. 

MOVE 1 TO BILDSCHIRM-POS PUFFER-POS. 

CALL EIN-AUSGABE USING SCHREIBEN-ATTR FORM-PARAMETER 
PGM19-QBd-ATTR. 


CALL EIN-AUSGABE USING SCHREIBEN-ZEICHEN FORM-PARAMETER 
PGM19-BB. 


ACCEPT PGM19-81 FROM CRT. 
MOVE PGM19-81-0726 TO NAME-ALT. 
MOVE PGM19-81-8735 TO ERW-ALT. 


MOVE PGM19-91-90926 TO NAME-NEU. 


001858 
B01860 
001870 
001888 
001898 
801900 
B81918 
801928 
801938 
DA19I4D 
801958 
081969 
881978 
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MOVE PGM19-81-8935 TO ERW-NEU. 
CALL "RENAME” USING PARAMETER. 


IF FEHLERCODE = 8 

DISPLAY "DATEI UMBENANNT” AT 2581 
ELSE 

DISPLAY "FEHLER AUFGETRETEN” AT 2591. 


DISPLAY ENDE-MELDUNG AT 2401. 

ACCEPT ENDE-KENNZEICHEN AT 2416. 
VER-9999. 

EXIT. 


Ed 22 2 2. 2 202.2 202.2 202020202202 02.2 2020202 02.2 2 0202.202022 20202 2.2.2.2 02.2.2.2.2.2.2.2.202.2.20. 


.% 


* 


‚* ASSEMBLERPROGRAMM ZUM UMBENENNEN EINER DATEI * 


% 
1) 


.% 
’ 


* 
%* 


RE E 3.2 2.2 2.202. 2.2.2 2.2.2.8 202.2 2 20212 .2.2. 2.202.228 02 2.2.2 2.202.222 02.2.2202 02.2.2.2.2.2.2,220 


CSEG 


RENAME 


RENAME 
CSEG 


SEGMENT 

ASSUME CS:CSEG,DS:CSEG 

ORG 188H 

PROC FAR 

MOV BP,SP 

PUSHF 

MOV AH, 17H ; FUNKTIONSAUFRUF 17 
LDS DX,DWORD PTR [BP+4]) ; ZUWEISUNG DER PARAMETER 
INT 21H 

LDS SI,DWORD PTR [BP+4] 

MOV [SI+33], AL 

POPF 

RET 

ENDP 

ENDS 

END RENAME 
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Umbenennen einer Datei 


Dateiname (alt) ---> 
Dateiname (neu) ---> 


Ende (J/N) === 
DATEI UMBENANNT 


Dialog-Testlauf (PGM 19) 
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PGM20: Der Zugriff auf den Hardware-Port (gezeigt 
am Beispiel der asynchronen Schnittstelle) 


200818 IDENTIFICATION DIVISION. 


000028 PROGRAM-ID. PGM2B. 
200030 AUTHOR. R. HABIB. 
000040 DATE-WRITTEN. 81-91-1987. 


200056 DATE-COMPILED. D1-Apr-87 19:33. 


WILTITELEEES SE 2 2 20272 202 220202202 2727 2027272021272 121272020272 2127212121272 .212 272,202 72,2 21202020202 7202.2,2 02.2 2.227 
VILDMI LEE EEE 80202 2020272722722 02027272 1212122727272 027272727202 020272 2/2.227202727272 02027202 2.202 272.2 72.2 12020202 .22 727. 


DODDEN*% *% 
200090%** PROGRAMMFUNKTION: *% 
DRD1OD*« ”% 
BOA110** DAS PROGRAMM ERMÖGLICHT DEN ZUGRIFF AUF DIE ASYNCHRONEN *% 
0800120%* SCHNITTSTELLEN. DABEI KANN DER BENUTZER BESTIMMEN, OB DATEN *%* 
000130*%* EIN- ODER AUSGEGEBEN WERDEN SOLLEN. *% 
WUBET LS. *% 


VEIUREIT LEE SE SS 22020202 272 27203 20202 2 20202027272 1272 72727272727 27272727272 /2/2 72027202 72720272020202727027027202727272 022027 
IKT EEE 2 2 20272 2272720202 12027202 2 2 2 27272 272 2727212 712727272 272727272 2727212727202 727272 27202227272 272 2727272720212 727 


08080178 ENVIRONMENT DIVISION. 
BOA180 CONFIGURATION SECTION. 
BRK19d SOURCE-COMPUTER. IBM-PC. 
2082008 OBJECT-COMPUTER. IBM-PC. 
000210 SPECIAL-NAMES. 

088228 CONSOLE IS CRT. 
08088230 INPUT-OUTPUT SECTION. 
0800248 FILE-CONTROL. 
WELPATERLELEEESEPEPEEETEIIESTOUES EEE EIER EIOESEREREEEEELERD 
0002608 DATA DIVISION. 

2880278 

D0D288 WORKING-STORAGE SECTION. 


D08 2 ID 3 II IIIIIBIIBIIGIIIHIIHEIEIEEIEIEIEIEIGEIEIGIIEIIIIIIIIIEIBIIIEIRIIHIHIHIHIGIHIGIIER 


200308 81 EINGABE-CURSOR. 


200310 85 E-ZEILE PIC 9(2) VALUE 91. 
000320 85 E-SPALTE PIC 9(2) VALUE 91. 
200330 

0008348 81 PORT-ADRESSE PIC 9(5). 

2008350 81 STATUS-ADRESSE PIC 9(5). 

200368 

000378 01 ZEICHEN PIC X. 

200389 

0200398 Di EINGABE-ZEICHEN PICX. 

D004BO Di AUSGABE-ZEICHEN PICX. 

000410 

208420 81 STATUS-INFO PIC 99 COMP. 
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000438 01 CONSOLE-STATUS PIC 99 COMP. 

D0 044 DB BGH EEIEIIBIEIEIIGEIEIBIIEIETEIIEIEIE TIERE IIEIENEI III III III III EIERN 
000458 PROCEDURE DIVISION. 

000468 PROGRAMM-STEUERUNG SECTION. 

D0d47TO PR-IDDR. 


000480 DISPLAY SPACE UPON CRT. 
020498 DISPLAY "TESTEN DER ASYNCHRONEN SCHNITTSTELLE” AT 8128. 
000500 PERFORM VERARBEITUNG UNTIL ZEICHEN = X”1B”. 


888510 PR-9999. 

800528 EXIT PROGRAM. 

820530 STOP RUN. 
ITIEXIVERBRRREEREELERET LESE LEDELERIEEUIEETTEEDERDEREEEDUE TEENS E22 2 272222 
08080550 VERARBEITUNG SECTION. 

200560 VER-1DKN. 

2880570 DISPLAY ”"ESC = ENDE, E=PORT-EINGABE, A=PORT-AUSGABE” AT 2501. 
820580 MOVE 1816 TO PORT-ADRESSE. 

820598 MOVE 1821 TO STATUS-ADRESSE. 


208600 

200610 CALL X”"D9” USING CONSOLE-STATUS. 

808620 

800638 IF CONSOLE-STATUS NOT = 8 

280640 CALL X”83” USING ZEICHEN 

0820658 IF ZEICHEN = "E” OR ”e” 

800668 PERFORM PORT-EINGABE UNTIL ZEICHEN = X”"1B” 
0800678 MOVE HIGH-VALUE TO ZEICHEN 

BRD68D ELSE IF ZEICHEN = "A” OR "a” 

800698 PERFORM PORT-AUSGABE UNTIL ZEICHEN = X"1B” 
2808708 MOVE HIGH-VALUE TO ZEICHEN. 


DRR71d VER-9999. 

000720 EXIT. 

800730 3 m III EIER RR RR 
0007408 PORT-EINGABE SECTION. 

08008758 EIN-1808. 

WII EEE EEE 22202 2020202722 202272 2022727272 2227272 720227227272 72 72727272 7127272 72727272 272727272 2027202727022 272720 
BOB770* Feststellen, ob ein Zeichen vom Port eingelesen werden kann. * 
WIUCHETEEZEZ EEE 220202272 020202020272 02727272 727272 127272727272 127272 27272727272 7212 2127202272 227202727212 72 2120227272127 
880798 CALL X”87” USING STATUS-ADRESSE STATUS-INFO. 

00808 

WIVERNELLEEE ESS E22 2022020278 20222 27 22272027272 2727272027272 27272 7272727272 2127227272122 2027272027222 202702027270 
200820* Das erste Bit im STATUS-INFO enthält 1, wenn gelesen werden * 
BRde3ß* kann * 


VITELTELZEEE SEE 2 2 2 2 22 2 2 2 2 22 2 2 272 272727272 7272 2721272 1212121272272 272 272 2 272 12 27202 2212202027212 02 72020270 


080858 


000868 DIVIDE STATUS-INFO BY 2 GIVING STATUS-INFO 
200878 REMAINDER STATUS-INFO. 
00888 

800898 IF STATUS-INFO = 1 
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2888900 CALL X”87” USING PORT-ADRESSE EINGABE-ZEICHEN 
888910 DISPLAY EINGABE-ZEICHEN AT EINGABE-CURSOR. 
200928 

808930 CALL X”83” USING ZEICHEN. 


D80940 EIN-9999. 

2800958 EXIT. 

0009 6 0:33 33 BBRRRRBBRREBBRBRRIBBBBRRBBBBBBEBBBBERBIERRIBRBEBEBEBEBERSEEEN 
200978 PORT-AUSGABE SECTION. 

200988 AUS-1088. 

200990 CALL X”87” USING STATUS-ADRESSE STATUS-INFO. 


201008 DIVIDE 32 INTO STATUS-INFO. 

AR1010 DIVIDE STATUS-INFO BY 2 GIVING STATUS-INFO 

281020 REMAINDER STATUS-INFO. 

001030 

ö8 ı WETEEEES ES 222 2 2 20202 2202 2727202 2027272021212 727 2721272727122 127272720212 0272727212702 02 127202 212.272 122.2 022,2 202,270 
B01050* Senden, wenn der Puffer bereit ist. * 


WEHRT E EEE 2027202 02272202 2727202 2 272 722722 27222272 2272272222272 2222 27202 27272 212 727272722212 72,2 7271272 2727 


281070 IF STATUS-INFO NOT = 8 


Do1Dd8D CALL X”83” USING ZEICHEN 

201898 DISPLAY ZEICHEN AT 1240 

BR1188 MOVE ZEICHEN TO AUSGABE-ZEICHEN 

BR1110 CALL X”88” USING PORT-ADRESSE AUSGABE-ZEICHEN. 


BO1120 AUS-9999. 
281130 EXIT. 


| Esc = ENDE, E=PORT-EINGABE, A=PORT-AUSGABE 


Dialog-Testlauf (PGM20) 
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PGM21: Aktivieren der Nullen-Einfügung in Dateien 


BB0018 IDENTIFICATION DIVISION. 


B00028 PROGRAM-ID. PGM21. 
000038 AUTHOR. R. HABIB. 
0080048 DATE-WRITTEN. 81-01-1987. 


D00850 DATE-COMPILED. B1-Apr-87 19:33. 


WITT ELEEE ES E22 202020272 202727127272 272727221272 72 727272727272 72 20212722202 7272 7202270202022 7270202021202 2022.22 02127270 
VEIIRLELEEEE SE 22222 202 202027020202 212702 20202727272 2021202702702 0202127272272 7272020212 70272 0212020202 02.202 2722020202 12.273 


BODDEn«** *% 
2020090%** PROGRAMMFUNKTION: ”r 
BAD1DD** Rx 
BB0110%%* DAS PROGRAMM ERLAUBT DIE AUFNAHME VON ZEICHEN MIT EINEM xx 
000120%** NIEDRIGEREN CODE ALS X"1B” IN LINE-SEQUENTIAL-DATEIEN. *% 
BR0130** DIES GILT FÜR PROFESSIONAL COBOL V1.9. #x 
DOD140*% xx 


DOD 15 DREIER 
DICKE RUN EEE REN ER HERE EIER EHER RER RE 
808178 ENVIRONMENT DIVISION. 

D0B180 CONFIGURATION SECTION. 

DROB19B8 SOURCE-COMPUTER. IBM-PC. 

200200 OBJECT-COMPUTER. IBM-PC. 

8002108 SPECIAL-NAMES. 

200228 DECIMAL-POINT IS COMMA, 

000239 CONSOLE IS CRT. 

880240 INPUT-OUTPUT SECTION. 

8882508 FILE-CONTROL. 

800260 SELECT AUSGABE ASSIGN TO DATEI-NAME, 

200278 ORGANIZATION IS LINE SEQUENTIAL. 

WIRST IEE EEE E22 022027222 272 272020272272 272 27272727202 7272727227272 727272720272 7272727272722 7272720202272 0272 0202027202727 
000290 DATA DIVISION. 

000308 FILE SECTION. 

2208318 

000320 FD AUSGABE. 

8803308 Di A-SATZ PIC X(38). 

800340 

0088358 WORKING-STORAGE SECTION. 

000368 

800370 81 ERGEBNIS PIC 99 COMP VALUE 9. 

800380 

000398 81 FUNKTION PIC 99 COMP. 

2800400 

000418 81 DATEI-NAME PIC X(18). 

000428 Di DUMMY PIC X(891). 


DDDAZD TREE ER TTIEEKKRTE N 


9-118 


Demonstrationsprogramme 


000440 PROCEDURE DIVISION. 
200450 PROGRAMM-STEUERUNG SECTION. 
0200460 PR-1000. 


200478 
000488 


PERFORM AUSGEBEN. 
PERFORM EINGEBEN. 


808490 PR-9999. 


200509 
0800510 


EXIT PROGRAM. 
STOP RUN. 


VIENI EEE E22 22 2 2020202 2272 2712 202127272272 72 72727272 7272727272272 7212 7212727212722 7272127272 2127202272272 1202727272027. 


000530 AUSGEBEN SECTION. 
200548 AUS-1PDR. 


800559 
2800560 
800570 
200580 
000590 
B0O06Dn 
200619 
000620 
200639 
008648 
280658 
000669 
200678 
200689 
000698 
280788 


MOVE 46 TO FUNKTION. 

MOVE "STEUER.FIL” TO DATEI-NAME. 

CALL X”91” USING ERGEBNIS, FUNKTION, DATEI-NAME. 
OPEN OUTPUT AUSGABE. 


MOVE X”414243000A0B0C20202020202020202044” TO A-SATZ. 
WRITE A-SATZ. 


MOVE 47 TO FUNKTION. 
CALL X”91” USING ERGEBNIS, FUNKTION, DATEI-NAME. 


WRITE A-SATZ. 


CLOSE AUSGABE. 


VITA EEE E02 e EEE nee ee 2257222727272 27272 72727772 72727272727272727202727272720272°07202°2°2°20202°2727272020272727202 75 


0008720 EINGEBEN SECTION. 
080738 EIN-10808. 


200748 
000750 
200768 
200778 
200780 
200798 
nodedn 
BR8810 
200820 
2800830 
200848 
200850 
000860 


MOVE 46 TO FUNKTION. 
CALL X”91” USING ERGEBNIS, FUNKTION, DATEI-NAME. 


OPEN INPUT AUSGABE. 


READ AUSGABE. 
DISPLAY A-SATZ AT 2391. 


READ AUSGABE. 
DISPLAY A-SATZ AT 2481. 


CLOSE AUSGABE. 
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PGM22: Feststellen der Kapazität eines Laufwerke 


BBRB1B IDENTIFICATION DIVISION. 


200028 PROGRAM-ID. PGM22. 
0000320 AUTHOR. R. HABIB. 
8000408 DATE-WRITTEN. 81-81-1987. 


200850 DATE-COMPILED. Bi-Apr-87 19:33. 
WEIIIT ELSE ES 2 2 22 2 202 20272020202 027272020272 02720202 2020212702 0272 2721272022022 02202 020202.220220202 2120272027202 .273 
WIITMDELEE EEE 2 22 20202 2020272 202027202 2721202020802 72702720202 02702702 020272727202 72127 202027220272 202 0212 72.202 122.2 72 1220270 


DOODER** xx 
08020090%** PROGRAMMFUNKTION: ”% 
BRO1DD** Rx 
BBB110%* MIT DIESEM PROGRAMM KANN MAN DIE KAPAZITÄT EINES LAUFWERKS *%* 
000128%*%* FESTSTELLEN. Rx 
BOn130%*%* *% 
DOO140%*% *%* 


VETAETEEEE ESS E22 2 202027802 20202727202 270272727272 7121272721202 27212727272 727272727212 027272 7212720272732 02 120272121272 22/2027 
DO ICDRrRRRRER RER NEE FEUER EEE NEHEEEEEKIRI RR 
000178 ENVIRONMENT DIVISION. 

DAR18Bd CONFIGURATION SECTION. 

B0819B SOURCE-COMPUTER. IBM-PC. 

B00208 OBJECT-COMPUTER. IBM-PC. 

000218 SPECIAL-NAMES. 

000220 DECIMAL-POINT IS COMMA, 

000238 CONSOLE IS CRT. 

000248 INPUT-OUTPUT SECTION. 

200258 FILE-CONTROL. 


DID2EDR RR RITTER EEE EEK TIERE EU IEH NEIN EEU ER ER 


0280278 DATA DIVISION. 


000288 

0080290 WORKING-STORAGE SECTION. 

000308 

000310 81 ENDE-MELDUNG PIC X(15) VALUE 

0800320 "Ende (J/N) ===>", 

000330 

000340 Bi ENDE-KENNZEICHEN PICX VALUE SPACE. 
000350 88 ENDE VALUE "I" "j”. 

200360 

DOO3 PORT HIRTEN EEE KERN IN RE 
B0d0380 Di ERGEBNIS PIC 99 COMP. 

200390 

200480 B1 FUNKTION PIC 99 COMP. 

800418 

000420 81 PARAMETER. 

000430 85 NULL-NULL PIC 9(82) COMP VALUE 8. 
000440 05 LAUFWERK PIC X(81). 
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200450 81 FILLER REDEFINES PARAMETER. 


200469 85 NOCH-FREI PIC 9(B8) COMP. 
200478 05 GESAMT PIC 9(88) COMP. 
200480 


DIDID RR EEE III EEE IE RER RE 


000500* PARAMETER FÜR EIN/AUSGABE VON BILDSCHIRM-ATTRIBUTEN BZW. DATEN * 


8905 WE Z. 20202020272 02 20275020272 2720272727272 727227202272 27202720272 0272 7202722727272 72.2022 0212 12 20202/21202 2720202702 0202.27270 


000528 01 EIN-AUSGABE PIC X(1) VALUE X”B7”. 
000539 

0200548 D1 SCHREIBEN-ZEICHEN PIC 9(2) COMP VALUE 1. 
200558 D1  SCHREIBEN-ATTR PIC 9(2) COMP VALUE 3. 
800560 

000570 81 FORM-PARAMETER. 

000580 83 LAENGE PIC 9(4) COMP. 

800598 83 BILDSCHIRM-POS PIC 9(4) COMP. 

280600 083 PUFFER-POS PIC 9(4) COMP. 


D0D6 1 D 33 BR RRRRTORIBTEIRIOIHEIEIEIHIBINIIEEIIEN IHRE HEREIN RI R 


B00638 81 PGM22-B8-ATTR. 


000640 83 FILLER PIC X(B8181) VALUE ALL X”03”. 

BB0650 83 FILLER PIC X(8826) VALUE ALL X”31”. 

800660 83 FILLER PIC X(0854) VALUE ALL X”03”. 

000679 83 FILLER PIC X(0826) VALUE ALL X”31”. 

BeB6s0 03 FILLER PIC X(0054) VALUE ALL X”83”. 

BO6690 3 FILLER PIC X(2826) VALUE ALL X”31”. 

200709 83 FILLER PIC X(8138) VALUE ALL X”03”. 

BoeTıa 03 FILLER PIC X(2201) VALUE ALL X”13”. 

BO0728 63 FILLER PIC X(0327) VALUE ALL X”83”. 

Be0730 603 FILLER PIC X(8818) VALUE ALL X"61”. 

BO0748 03 FILLER PIC X(8158) VALUE ALL X”83”. 

200750 83 FILLER PIC X(8818) VALUE ALL X”61”. 

000768 83 FILLER PIC X(0520) VALUE ALL X”03”. 

BOe7”dE 03 FILLER PIC X(8048) VALUE ALL X”84”. 

080788 83 FILLER PIC X(8429) VALUE ALL X”03”. 

DOBT90 DI PCM22-BB 

WELELT 03 PGM22-08-D191 PIC X(0080) VALUE " pm 
DDDBID- Dom | 
00820 83 PGM22-Bd-0281 PIC X(Bddi) VALUE ”|”. 

BOB8s30 03 FILLER PIC X(8978). 


000849 03 PGM22-00-0280 PIC X(Bd91) VALUE "|". 
200859 B3 PGM22-08-8301 PIC X(QBB1) VALUE "|". 
200869 03 FILLER PIC X(8978). 

800870 03 PGM22-00-0380 PIC X(B801) VALUE "| 
000880 03 PGM22-08-0401 PIC X(0881) VALUE "|”. 


200898 83 FILLER PIC X(8824). 
809980 83 PGM22-08-8426 PIC X(0828) VALUE "Laufwerksstatistiken”. 
808918 83 FILLER PIC X(8834). 


208920 03 PGM22-08-0480 PIC X(B881) VALUE "|". 
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000938 
000940 
800958 
800968 
208978 
800988 
8008990 
Ad1088- 
BD1B10 
281020 
201030 
AB1040 
001058 
0101068 
881070 
2891080 
881090 
B81108 
Ba111B 
001128 
BDd1130- 
01140 
281150 
D01168 
801170 
D01188 
281190 
881208 
01218 
801220 
881230 
001240 
091258 
D01260 
881278 
081280 
891298 
801308 
B01310 
881328 
281330 
B01340 
201350 
001368 
881378 
Bd1380 
201398 
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03 PGM22-98-0581 
83 FILLER 
D3 PGM22-00-0580 
83 PGM22-88-0601 
83 FILLER 


B3 PGM22-00-0689 
B3 PGM22-98-8701 
”_, .” 

83 FILLER 


83 PGM22-80-0780 
83 PGM22-00-0801 
Ö3 FILLER 

03 PGM22-A0d-0880 
03 PGM22-90-8981 
83 FILLER 

03 PGM22-08-0988 
03 PGM22-88-1001 
83 FILLER 

03 PGM22-80-1080 
03 PGM22-88-1181 
"Laufwerks:”. 

03 FILLER 

83 PGM22-88-1146 
03 FILLER 

03 PGM22-08-1180 
83 PGM22-88-1201 
83 FILLER 

03 PGM22-B0-1280 
d3 PGM22-88-1301 
83 FILLER 

03 PGM22-08-1346 
83 FILLER 

03 PGM22-09-1380 
03 PGM22-08-14891 
83 FILLER 

03 PGM22-B8-1480 
d3 PGM22-88-1591 
83 FILLER 

83 PGM22-98-1580 
03 PGM22-88-1691 
83 FILLER 

03 PGM22-08-1680 
03 PGM22-88-1781 
83 FILLER 

B3 PGM22-88-1780 
03 PGM22-80-1881 
03 FILLER 


PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 


PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 


PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 


X(8891) 


X(0078). 


X(8881) 
X(8881) 


X(8878). 


X(8881) 
X(8827) 


X(8852). 


X(0801) 
X(8001) 


X(0078). 


X(8881) 
X(8881) 


X(0878). 


X(8891) 
X(8081) 


X(0078). 


X(8801) 
X(8032) 


X(8813). 


X(08885) 


X(0829). 


X(8891) 
X(8801) 


X(8878). 


X(0881) 
X(8017) 


X(8828). 


X(8885) 


X(0829). 


X(8881) 
X(8881) 


X(8878). 


X(8881) 
X(8881) 


X(8078). 


X(8891) 
X(88091) 


X(8078). 


X(8801) 
X(8801) 


X(8078). 


X(8801) 
X(8881) 


X(8078). 


VALUE 


VALUE 
VALUE 


VALUE 


VALUE 


VALUE 


VALUE 


VALUE 
VALUE 


VALUE 
VALUE 


VALUE 


VALUE 


VALUE 


VALUE 
VALUE 


VALUE 
VALUE 


VALUE 


VALUE 
VALUE 


VALUE 
VALUE 


VALUE 
VALUE 


VALUE 
VALUE 


VALUE 
VALUE 


"| Laufwerk - 


"| Gesantkapazität des 


"Bytes”. 


"| Noch frei sind:". 


"Bytes”. 


201408 
281410 
001420 
281430 
D01440 
801450 
801460 
201478 


B01480- 
081490 91 


801508 
D81510 
081520 
281538 
281548 
801558 
801560 
201579 
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D3 PGM22-08-1888 PIC X(BBB1) VALUE "|". 
03 PGM22-08-1901 PIC X(0081) VALUE "|". 
83 FILLER PIC X(8078). 
03 PGM22-88-1988 PIC X(B801) VALUE "|". 
03 PGM22-08-2081 PIC X(BBB1) VALUE "|”. 
83 FILLER PIC X(8078). 


03 PGM22-00-2080 PIC X(B881) VALUE "|". 
03 PGM22-08-2101 PIC X(D080) VALUE " Immmmmmmmmmmmmn 


N) ne re ]| ” . 


PGM22-91 REDEF INES PGM22-08 
03 FILLER PIC X(8585). 
B3 PGM22-81-0726 PIC X(B801). 
83 FILLER PIC X(8327). 
B3 PGM22-81-1134 PIC ZZ.27Z.ZZZ. 
83 FILLER PIC X(8158). 
03 PGM22-81-1334 PIC Z2.ZZZ.ZZZ. 
83 FILLER PIC X(852B). 


83 PGM22-01-2004 PIC X(0948). 


VIEREI:T EEE EZ 2220202 27272 202202027272 72 272 727272721202 027272727272 121272 127272727272 2727272727272 7272121221212 7202 7212727275 


081598 PROCEDURE DIVISION. 
BD1600 PROGRAMM-STEUERUNG SECTION. 
B01610 PR-1B00. 


001620 


PERFORM VERARBEITUNG UNTIL ENDE. 


801630 PR-9999. 


081648 
881658 


EXIT PROGRAM. 
STOP RUN. 


DOICCDRrRRRRRR RUHR EIER RE 


801670 VERARBEITUNG SECTION. 
DO1688 VER-100R. 


801698 
801708 
801710 
081728 
2881738 
201740 
801750 
891768 
091778 
201788 
881798 
291800 
001819 
0801820 
801839 
001840 
801850 
B01860 


DISPLAY SPACE UPON CRT. 

MOVE 1688 TO LAENGE. 

MOVE 1 TO BILDSCHIRM-POS PUFFER-POS. 

CALL EIN-AUSGABE USING SCHREIBEN-ATTR FORM-PARAMETER 
PGM22-B88-ATTR. 


CALL EIN-AUSGABE USING SCHREIBEN-ZEICHEN FORM-PARAMETER 
PGM22-80. 


ACCEPT PGM22-81-0726 AT 0726. 


MOVE PGM22-81-8726 TO LAUFWERK. 
MOVE 26 TO FUNKTION. 


CALL X”91” USING ERGEBNIS FUNKTION PARAMETER. 


IF ERGEBNIS = ® 
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891870 
081880 
801899 
881988 
891918 
881920 
881930 
D01948 
B81950 
081960 
881978 
D81980 
281998 
082080 
002010 


MOVE NOCH-FREI TO PGM22-91-1334 
MOVE GESAMT TO PGM22-81-1134 
MOVE SPACE TO PGM22-91-2884 
ELSE 
MOVE "Laufwerksstatistiken nicht verfügbar” 
TO PGM22-91-2004 
MOVE ZERO TO PGM22-01-1334, PGM22-01-1134. 


CALL EIN-AUSGABE USING SCHREIBEN-ZEICHEN FORM-PARAMETER 
PGM22-90. 


DISPLAY ENDE-MELDUNG AT 2401. 

ACCEPT ENDE-KENNZEICHEN AT 2416. 
VER-9999. 

EXIT. 


Laufwerkstatistiken 


Laufwerk ->B 


Gesanmtkapazität des Laufwerks: 21.331.968 Bytes 
Noch frei sind: 4.153.344 Bytes 


Ende (J/N) ===) 


Dialog-Testlauf (PGM22) 
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PGM23: Aktivieren der Benutzerattribute/Text- 
Farb-Test 


B00018 IDENTIFICATION DIVISION. 

080028 PROGRAM-ID. PGM23. 
200030 AUTHOR. R. HABIB. 
080800408 DATE-WRITTEN. 81-01-1987. 
B00058 DATE-COMPILED. B1l-Apr-87 19:34. 


IP IIT EEE 202 02 2022082 22 22 222 2 2 272 272727272 27272 12 0272 12 7272 121212 27212 2272127272272 7122121221272 121272,2,2,202 02020 
VIDTRIELEEE ESS 20202 2 20272720202 027272727202 202702727212 2021212727272 7202120202722 7272 2020202727272 71272721272 2722220272027. 


WELLETZZ *%x 
BB0090** PROGRAMMFUNKTION: Rx 
BRD1DD** Rx 
BAB110*%* DAS PROGRAMM ZEIGT IHNEN, WIE MAN DIE BENUTZERATTRIBUTE *% 
D00120** AKTIVIEREN KANN. “x 
BOD13D** *% 
D0D140** ES ZEIGT DABEI ALLE VERFÜGBAREN ZEICHEN DES PC MIT 256 *% 
800150%** VERSCHIEDENEN ATTRIBUTKOMBINATIONEN. *% 
DOD160** Rx 


DD 1 7 VHS IE EIER EUER EEE EHI IERE TIERE 
01 BD EGBGB IGIEIEIEIEIEIEIEIE III IHIEIIEIIHTEIEIIEIIETEIHTEI III IH 


888198 ENVIRONMENT DIVISION. 
08008288 CONFIGURATION SECTION. 


800210 SOURCE-COMPUTER. IBM-PC. 
000220 OBJECT-COMPUTER. IBM-PC. 
000230 SPECIAL-NAMES. 

200240 CONSOLE IS CRT. 


0025 BER RRIREIIIIIIIIBIIIBIEIHOGEIBEIEBEIEIEIEIEIEIIEIEIEIEIBIEIEIIIEIIEIIHEIEIHIEIIICK IHK K 


800268 DATA DIVISION. 
200278 WORKING-STORAGE SECTION. 


200280 

2082908 81 FUNKTION PIC 9(2) COMP. 
Bn0308 Bi PARAMETER-16 PIC 9(2) COMP. 
B00310 Di PARAMETER-7 PICX. 


DOO3 DO RRRRRRRERRRRURIEIIIEIIEIIIIIIIIIHIIGIEIIEIHIEIHIBIIEIBIHIHIIHIHHIGIHHIIT THREE RE 


000330 Bi CURSOR-POS. 


000340 85 ZEILE PIC 9(2). 

2800359 85 SPALTE PIC 9(2). 

0.0036 0:33 a 333 BBRBRRBEIERREBEBRIBBIBRIBBIEEBBBIEBIBBEIBBIBERRRIBEEIEIIEEN 
200370 81 ZAEHLER PIC S9(4) COMP. 

0208380 81 FILLER REDEFINES ZAEHLER. 

200398 85 FILLER PIC X(1). 

D00408 85 BYTE PIC X(1). 

000410 

000428 Di DUMMY PIC X. 


880430 BREITEREN 
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BDDd46D PR-1DDR. 


000478 DISPLAY SPACE UPON CRT. 

000480 MOVE -1 TO ZAEHLER. 

000498 

200588 PERFORM AUSGABE 

B8d5 10 VARYING SPALTE FROM 33 BY 1 UNTIL SPALTE > 48 
000528 AFTER ZEILE FROM 85 BY 1 UNTIL ZEILE > 28. 
000538 

800540 ACCEPT DUMMY AT B101. 

000550 PR-9999. 

200568 EXIT PROGRAM. 


808570 STOP RUN. 

0058 0GB BBBRBRBEBBBBBBBEGBBRBBBBEBBBBBBBRRREREBEBEIEBIEBTEIBEBESEEIIEIIEEN 
800590 AUSGABE SECTION. 

D00628 AUS-1008. 


808610 ADD 1 TO ZAEHLER. 

0020620 

200630 MOVE 7 TO FUNKTION. 

080640 MOVE BYTE TO PARAMETER-7 

208650 CALL X”A7” USING FUNKTION PARAMETER-?7. 
200660 

800678 MOVE 16 TO FUNKTION. 

B00680 MOVE 8 TO PARAMETER-16. 

800698 CALL X”A7” USING FUNKTION PARAMETER-16. 
200700 

288710 DISPLAY BYTE AT CURSOR-POS. 


800728 AUS-9999. 
200738 EXIT. 


> OaP'pCEä Has 
1 1AQaqüe fi -IyPt 
er"2BRbr&eköx 1T2 
vı#3cscsaöu| -Ir- 
+I$4D Tdtäöri - LE 
85%5EUeuaöN4 + ro 
Mu&6FVfvautl krus 

1'7GWgwcü2ı HT= 


t(8HXhxey; 
I)9IYiyeö 
+*:12jzeÜ- 


+; J[ktiel. 
-,<K\L|iE% 
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4.2M nn" ÄR«d 
JON_o#Äf»- 


Dialog-Testlauf (PGM23) 
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PGM24: Sofortiges Umwandeln von Klein- in Groß- 


buchstaben während der Eingabe 


808818 IDENTIFICATION DIVISION. 


200020 PROGRAM-ID. PGM24. 
200030 AUTHOR. R. HABIB. 
0000848 DATE-WRITTEN. 81-81-1987. 


800050 DATE-COMPILED. B1-Apr-87 


88087 8:33:33 OB RBRRIBREBITEIBBIEIBBITEIHRIGHBEISIEISIEIGEIGIEIEISTEIBTIGIEIHTIIIHTEIBIEIIER IHNEN 
0008 03333 RRRRIIERTBIBEIBEIBBIBIBEIBBIHIEIBIBTEISEIGIEIBIBIEIBIEIBTEIHEIHIHEIHEI ERICH IN 


DO00I0** 
DD 00*%* 
DODO110*% 
DOD120%*% 
BOB130** 
DO8140%% 
BON 150** 
DDD16D*% 
BOB170*% 
DOD180** 
DOA1ID*« 


PROGRAMMFUNKTION: 


19:34. 


*% 
% 
*% 


DIESES PROGRAMM ZEIGT EINE SINNVOLLE ANWENDUNG, WENN DATEN IN** 


GROSSBUCHSTABEN ERWARTET WERDEN. 


DAS UNTERPROGRAMM X”AF” AKTIVIERT EINE FUNKTION, WONACH DIE 
VOM BENUTZER AM BILDSCHIRM EINGEGEBENEN DATEN SOFORT IN 
GROSSBUCHSTABEN UMGEWANDELT WERDEN, UND ZWAR UNABHÄNGIG VOM 


STATUS DER CAPS-TASTE. 


*% 


*“% 


WLPÄ TEE EEE 2020202027272 70202720202 72 212 7272 72 727272727272 72 12 2027272727272 727272727272 72 2727272720202 72 2127272720272 2727272727270 


WII WAN EEE E25 0202 27272 0202727805 0272 5727272727275 727272 2727272027272 7272720272 7272 027272727202 02727 202720272 727272727272 02 72720275 


0800228 ENVIRONMENT DIVISION. 
0088230 CONFIGURATION SECTION. 
000240 SOURCE-COMPUTER. IBM-PC 
800250 OBJECT-COMPUTER. IBM-PC 
0800260 SPECIAL-NAMES. 


800278 
B00280 


CURSOR IS CGURSOR-POS 
CONSOLE IS CRT. 


0008298 INPUT-OUTPUT SECTION. 
200308 FILE-CONTROL. 


VITBALLLLEE EEE 28 22222 2 272 272 2 22722727202 27272727272 7272 72727272727 272 72727272 727272 727272727272 0272727272727272727 


08083208 DATA DIVISION. 


200338 


280348 WORKING-STORAGE SECTION. 


800358 81 
2800368 
800378 91 
000380 
808398 91 
800400 
200410 
000420 


CURSOR-POS 


FLAG 


PARAMETER. 

85 KLEIN-GROSS 
85 PARAM-2 

05 PARAM-3 


PIC 9(4) 


VALUE 8101. 


PIC 99 COMP VALUE 1. 


PIC 99 COMP. 


PIC X VALUE ”2”. 
PIC 99 COMP VALUE 85. 
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800430 
000448 


05 PARAM-4 PIC 99 COMP VALUE 1. 


DODISOK RR RER IE HEHE URHEEKAEEIEIEIERK 


000460* PARAMETER FÜR EIN/AUSGABE VON BILDSCHIRM-ATTRIBUTEN BZW. DATEN * 


0094 78:33:33 3 BR RRRRIRRIEITIRIIEIIIEIBEIIEIGIIIEIGIHIIEIGIIIIBIIIGIIE III III REIHE 


000488 
000499 
2800588 
808518 
800520 
200530 
800548 
800559 
808568 


1 


1 
81 


81 


EIN-AUSGABE PIC X(1) VALUE X”B7”. 
SCHREIBEN-ZEICHEN 


SCHREIBEN-ATTR 


PIC 9(2) COMP VALUE 1. 
PIC 9(2) COMP VALUE 3. 


FORM-PARAMETER. 
83 LAENGE 

83 BILDSCHIRM-POS 
83 PUFFER-POS 


PIC 9(4) COMP. 
PIC 9(4) COMP. 
PIC 9(4) COMP. 


(IIEXDELEEE SEES 20202 020202020272 72 127202027272 72 720202127272 72 120272 2727212121202 2727272721272 120202 2727272 72120202 027202727275 


200589 
288598 
BRD6DD 


DDA610* 


000620 


0800630* 


080640 


800650* 


800668 


91 
1 


TASTEN-PROGRAMMIERUNG 
TASTEN-TABELLE. 

83 TASTEN-NR 
FUNKTIONSTASTE Fi =1 
83 FILLER PIC X(83) VALUE X”d2003B”. 
DIE TASTEN: ESC=2 

83 FILLER PIC X(2) VALUE X”QD11B”. 
ENDE-KENNZEICHEN 
83 FILLER PIC X 


PIC 99 COMP VALUE 8. 


PIC 99 COMP. 


VALUE X”d0”. 


WITT ELLELDE SS EEE E22 2720220227272 7272272027272 72 720272727272 72 72020272727 272727272 2027272727 2727202022207 272727 


280698 
800708 
880718 
888720 
2800738 
800748 
800750 
0880768 
800770 
200788 
280798 
000809 
Bad81n 
808820 
000830 
000840 
200850 
B00868 
800870 
Bnd8en 


208890- 


B08900 
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1 


91 


PGM24-BB-ATTR. 


83 FILLER PIC X(8174) VALUE ALL X"83”. 
83 FILLER PIC X(8054) VALUE ALL X”31”. 
83 FILLER PIC X(0826) VALUE ALL X”03”. 
83 FILLER PIC X(8854) VALUE ALL X”31”. 
83 FILLER PIC X(0826) VALUE ALL X”03”. 
83 FILLER PIC X(8854) VALUE ALL X”31”. 
83 FILLER PIC X(0339) VALUE ALL X”03”. 
83 FILLER PIC X(8840) VALUE ALL X”13”. 
83 FILLER PIC X(8848) VALUE ALL X”03”. 
83 FILLER PIC X(0848) VALUE ALL X”13”. 
83 FILLER PIC X(0848) VALUE ALL X”03”. 
03 FILLER PIC X(0848) VALUE ALL X”13”. 
83 FILLER PIC X(0048) VALUE ALL X”03”. 
83 FILLER PIC X(8048) VALUE ALL X”13”. 
83 FILLER PIC X(8848) VALUE ALL X”93”. 
83 FILLER PIC X(0d48) VALUE ALL X”13”. 
83 FILLER PIC X(8913) VALUE ALL X”83”. 
PGM24-88 
03 PGM24-08-D181 PIC X(D080) VALUE " gm 


03 PGM24-08-8201 PIC X(BBB1) VALUE "|". 
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BRAI1D 83 FILLER PIC X(8878). 
020920 03 PGM24-00-0288 PIC X(BdBd1) VALUE ”"|”. 
800938 03 PGM24-80-0301 PIC X(B8d1) VALUE "|”. 
080940 83 FILLER PIC X(0878). 
800950 03 PGM24-08-0388 PIC X(BB881) VALUE "|”. 
008960 03 PGM24-08-8401 PIC X(@dB1) VALUE "|". 


200978 83 FILLER PIC X(8815). 

008980 03 PGM24-88-0417 PIC X(8849) VALUE ”"Sofortige Umwandlung v 
880998- "on Klein- in Großbuchstaben”. 

881088 83 FILLER PIC X(8014). 


2881810 03 PGM24-Bd-0480 PIC X(@8d1) VALUE "|”. 
B81020 B3 PGM24-08-0501 PIC X(2881) VALUE "|”. 
821030 83 FILLER PIC X(8878). 

281048 03 PGM24-BB-B58B8 PIC X(BB81) VALUE "|". 
891859 B3 PGM24-D8-Q6H1 PIC X(BB881) VALUE "|". 
881060 83 FILLER PIC X(8878). 

201870 03 PGM24-08-0680 PIC X(B881) VALUE ”|”. 
281080 83 PGM24-B8-A7d1 PIC X(B0B1) VALUE "|". 
881090 83 FILLER PIC X(8878). 

2891108 03 PGM24-D0-8788 PIC X(D801) VALUE "|". 
BB1110 03 PGM24-B8-D8d1 PIC X(8087) VALUE ”| Text:”. 
81128 03 FILLER PIC X(8872). 

001130 03 PGM24-D0-8880 PIC X(BDB1) VALUE "|". 
DB1140 03 PGM24-88-8901 PIC X(BdD1) VALUE ”|”. 
881150 83 FILLER PIC X(8078). 

201160 03 PGM24-00-0980 PIC X(Bd1) VALUE ”|”. 
891178 03 PGM24-88-1001 PIC X(B881) VALUE "|". 


81180 83 FILLER PIC X(8878). 
B81198 D3 PGM24-B8-1880 PIC X(B081) VALUE "|". 
291200 83 PGM24-BA-1181 PIC X(Bddı) VALUE ”|”. 
881210 83 FILLER PIC X(8878). 
001220 03 PGM24-08-1180 PIC X(ddd1ı) VALUE ”|”. 
001230 03 PGM24-88-1201 PIC X(Bdd1) VALUE ”|”. 
081249 83 FILLER PIC X(8078). 


881250 03 PGM24-80-1288 PIC X(DAd1) VALUE "|". 
001268 03 PGM24-80-1301 PIC X(Bd1) VALUE "|". 
801278 83 FILLER PIC X(8078). 
281289 03 PGM24-80-1380 PIC X(Bd81) VALUE ”|”. 
281290 03 PGM24-08-1481 PIC X(D0B1) VALUE "|". 
891380 03 FILLER PIC X(8978). 
881310 83 PGM24-08-1488 PIC X(Q8B1) VALUE ”|”. 
801320 03 PGM24-B8-1581 PIC X(B801) VALUE "|". 
801338 83 FILLER PIC X(8078). 
801340 03 PGM24-00-1588 PIC X(B881) VALUE "|". 
801350 83 PGM24-B8-1601 PIC X(B8d1) VALUE ”|”. 
001368 83 FILLER PIC X(8078). 
801370 03 PGM24-08-1680 PIC X(B8d1) VALUE "|”. 
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081388 B3 __PGM24-DD-1701 PIC X(Dd8d) VALUE "7 —————nn 
1”. 


281398- ” 

D81400 83 PGM24-B8-1881 PIC X(0887) VALUE "j m”. 
81418 83 FILLER PIC X(8932). 

001420 03 PGM24-88-1848 PIC X(8885) VALUE "mul". 
801438 83 FILLER PIC X(8835). 


0801448 03 PGM24-D8-1880 PIC X(Dd81) VALUE "|". 

281458 03 PGM24-00-1901 PIC X(8821) VALUE "| FI | ausschalten” 
001468 

B01478 83 FILLER PIC X(8818). 


B01488 03 __PGM24-08-1940 PIC X(0813) VALUE "Esch Ende”. 
01498 83 FILLER PIC X(8827). 


801580 B3 __PGM24-08-1988 PIC X(B8@1) VALUE "|". 
801518 083 _PGM24-80-2081 PIC X(8807) VALUE "| ll”. 


801528 83 FILLER PIC X(8832). 

881539 03 PGM24-00-2048 PIC X(8805) VALUE "ll" - 

801540 83 FILLER PIC X(8835). 

001550 03 PGM24-08-2B88 PIC X(Bdd1) VALUE "|". 

0801560 03 PGM24-08-2181 PIC X(DD8Q) VALUE " Imre 
B81578- m] "' 
881580 91 PGM24-81 REDEFINES PGM24-09 

881598 83 FILLER PIC X(8727). 

801608 03 PGM24-B1-1008 PIC X(B84B). 

881619 83 FILLER PIC X(8848). 

891620 03 PGM24-B1-1108 PIC X(8840). 

8081630 03 FILLER PIC X(0848). 

001640 03 PGM24-81-1288 PIC X(B848). 

081658 83 FILLER PIC X(D84B). 

801669 83 PGM24-91-1308 PIC X(B048). 

2881670 83 FILLER PIC X(89848). 

081689 03 PGM24-81-1408 PIC X(084B). 

001690 83 FILLER PIC X(8363). 


091708 03 PGM24-81-1911 PIC X(B8811). 

0171 93233331303: a. RRIGBEEIGBEBRIGIBBEIGIBIEIGISBGIREIEEISEIEREIGIIGIEIBI II 
801728 PROCEDURE DIVISION. 

801738 PROGRAMM-STEUERUNG SECTION. 

001748 PR-1D080. 

881758 PERFORM VORLAUF. 

891768 PERFORM VERARBEITUNG UNTIL TASTEN-NR = 2. 

BD1778 PR-9999. 

881780 EXIT PROGRAM. 

891798 STOP RUN. 

00 1 88.0 3:3 3 3 3:33 3 3 3 a 3 BARREEIGBREIGRERSGRBEIBBEEBBEIGSBBEIGBRBIEGBBREGGBEREIGHIEN 
BA1810 VORLAUF SECTION. 

BR1828 VOR-1880. 

881838 DISPLAY SPACE UPON CRT. 

891840 
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801850 MOVE 1 TO KLEIN-GROSS. 

881860 CALL X”AF” USING FLAG PARAMETER. 

201870 

01880 CALL X”Bß” USING TASTEN-PROGRAMMIERUNG TASTEN-TABELLE. 
001898 

891908 MOVE 1680 TO LAENGE. 

DA191D MOVE 1 TO BILDSCHIRM-POS PUFFER-POS. 


031928 

001930***%* ATTRIBUTE SCHREIBEN 

01948 CALL EIN-AUSGABE USING SCHREIBEN-ATTR FORM-PARAMETER 
201959 PGM24-B8-ATTR. 


Bu196B8 VOR-9999. 

281978 EXIT. 

VIRRETEIE ES SE 222222 272 27202 202222 2 202 2727272727272 727272 7271272727272 127202 1272727272722 02 027202127020272727272 02727. 
21990 VERARBEITUNG SECTION. 

2020008 VER-1008. 

8820810 

002020**** TEXT SCHREIBEN 

0082030 CALL EIN-AUSGABE USING SCHREIBEN-ZEICHEN FORM-PARAMETER 


002048 PGM24-80. 

202058 

002060x*xxx VARIABLEN EINGEBEN 

202070 ACCEPT PGM24-81 FROM CRT. 

002088 

802090 IF TASTEN-NR = 1 

802108 

802118 IF KLEIN-GROSS = 1 MOVE 8 TO KLEIN-GROSS 
082128 MOVE ”"einschalten” TO PGM24-81-1911 
202138 CALL X"AF” USING FLAG PARAMETER 
002140 

002158 ELSE MOVE 1 TO KLEIN-GROSS 

802168 MOVE "ausschalten” TO PGM24-81-1911 
802178 CALL X”AF” USING FLAG PARAMETER. 
8021808 VER-9999. 

802198 EXIT. 
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Sofortige Umwandlung von Klein- in Gropbuchstaben 


GEBEN WERDEN. 


| F} ausschalten F-1 Ende 


Sofortige Umwandlung von Klein- in Großbuchstaben 


Jetzt konnen auch Kleinbuchstaben einge- 


F] einschalten 


Dialog-Testlauf (PGM24) 
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PGM25: Verändern des Cursors 


BBB8BA18 IDENTIFICATION DIVISION. 


200028 PROGRAM-ID. PGM25. 
200830 AUTHOR. R. HABIB. 
0000840 DATE-WRITTEN. 81-81-1987. 


0800850 DATE-COMPILED. Bi-Apr-87 19:35. 


WETIT EEE EE EZ 22020272722 02 02022 2 202 2222 2 e 2 2272 2 2222 20272722 22727227272 2212127 21212727202 7272 02127202727 
DDOO TORRENT HEHE HEHE RER 


WlLET 2 *% 
B0dn9B** PROGRAMMFUNKTION: *% 
B00100%*%* *%x 
BR0110%* MIT DIESEM PROGRAMM KANN MAN DIE FORM DES CURSORS BESTIMMEN. *% 
ADD 20** *% 


LERBILELEELEPEUEFTIETTETEUER EEE OERETELLEUOREREEELEIEELELTIEDE DEE 
0.014033 BB BRBRRBRRRBRIBBBBBBBBRBBEBBREBBBEBBBRBBIEBIBEBISEBEESEEEEBEIERNN 
0080150 ENVIRONMENT DIVISION. 

BBR160 CONFIGURATION SECTION. 

208178 SOURCE-COMPUTER. IBM-PC. 

BBB8180 OBJECT-COMPUTER. IBM-PC. 

008190 SPECIAL-NAMES. 

228200 CONSOLE IS CRT. 


80.021 8: BB BB BRERIIREEIBEIIBEBIBIGBIEIGEBIIGEIGOTEIBETIGEIIGEIHIEGOIBIHIEIEER IHRER 


0800228 DATA DIVISION. 


880230 

000240 WORKING-STORAGE SECTION. 

200250 

008260 01 FUNKTION PIC 99 COMP VALUE 17. 
200270 

800280 01 PARAMETER. 

000298 05 PARAM-1 PIC 99 COMP. 
000300 05 PARAM-2 PIC 99 COMP. 
200318 

2003208 Bi OBEN PIC ZZ. 
200330 di UNTEN PIC ZZ. 
000348 D1 DATEN PIC X(88). 


800 35 BE RERIEIIIEITIIHIHITIEIEIENE EEE HUHN RR 


00360 B1 TASTEN-PROGRAMMIERUNG PIC 99 COMP VALUE 8. 
200370 81 TASTEN-TABELLE. 

000380 83 TASTEN-NR PIC 99 COMP. 

800390* DIE TASTE: ESC=1 

D00408 83 FILLER PIC X(2) VALUE X”O11B”. 

200410%* ENDE-KENNZEICHEN 

000420 83 FILLER PIC X VALUE X”08”. 


800430: 33ER III ER 


0008448 PROCEDURE DIVISION. 
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000450 PROGRAMM-STEUERUNG SECTION. 
000468 PR-1BRD. 


000478 
000480 


PERFORM VORLAUF. 


PERFORM VERARBEITUNG UNTIL TASTEN-NR = 1. 


2800490 PR-9999. 


800500 
8080518 


EXIT PROGRAM. 
STOP RUN. 


DOO5 DDr EI IE III II III IIEIEHEIEIEIENEIEIENEHESENEIEIEIEHEIEIEIEIEIEIEIEIEIEIHIIHIE HEINE RE 


00808538 VORLAUF SECTION. 
880540 VOR-1080. 


800558 DISPLAY SPACE UPON CRT. 
000568 CALL X”Bd” USING TASTEN-PROGRAMMIERUNG TASTEN-TABELLE. 
200578 DISPLAY ">>>>>> Cursorform <<<<<< " AT 8130. 


208580 VOR-9999. 

200590 EXIT. 

WILL E EEE 22 2 220272 202 272272 0272027202722 727202720272 02 7272702 272720272 2020202 2120212020202 1202 0202 02.202.2 02,2 2.2 02.2027: 
Ö00610 VERARBEITUNG SECTION. 

000620 VER-198D. 


000638 DISPLAY "Erster Block bis Linie --->” AT 8581. 
800648 DISPLAY "Zweiter Block ab Linie --->” AT 8701. 
000658 

D00668 ACCEPT OBEN AT 8548. 

800678 ACCEPT UNTEN AT 8748. 


000680 MOVE 
008690 MOVE 


OBEN TO PARAM-1. 
UNTEN TO PARAM-2. 


000708 CALL X”A7” USING FUNKTION PARAMETER. 
208718 DISPLAY "Cursor testen:” AT 1401. 
000728 DISPLAY "Esc = Ende ” AT 2501. 
208738 ACCEPT DATEN AT 1681. 


8007408 VER-9999. 
000758 EXIT. 


»»>»>>2>> CGursorform <i<£<< 


Erster Block bis Linie ---> 
Zweiter Block ab Linie ---> 


Cursor testen: 


Hier sehen Sie die GCursorfornm 


Esc = Ende 


Dialog-Testlauf (PGM25) 
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PGM26: Feststellen, ob ein shift-ähnliche Taste 
gedrückt ist/Packen/Entpacken eines Bytes 


B00810 IDENTIFICATION DIVISION. 


200828 PROGRAM-ID. PGM26. 
200030 AUTHOR. R. HABIB. 
0000408 DATE-WRITTEN. 81-81-1987. 


8000850 DATE-COMPILED. B1-Apr-87 19:36. 


WLLITELZ ESS SE 2020272 202027272 202 0272712727202 727272720212 72 7272127271272 2727202720202 022020212 2027220202 020202 02120202 702.2702 7 
WILDE EEE 2 202 2020272702 2 0202 1202 20272727272 7272 7272 272 2721272727272 7272727272122 7222 2202027202202 2720272027272 02 72,275 


DaRded** *%* 
800090** PROGRAMMFUNKTION: ** 
WLan Li *%* 
BRA110** DAS PROGRAMM PRÜFT, OB EINE DER SHIFTÄHNLICHEN TASTEN EINGE- ** 
800120%** SCHALTET IST. *%* 
BOB130*% *% 
BB0140%** GEPRÜFT WERDEN DIE FOLGENDEN TASTEN: Rx 
B00150** *% 
D00160%*%* Ctrl Shift-] ALt Shift-r Caps Ins Num Scroll xx 
DOa170*% *%* 


BD 18:33:33 3 BREITEREN III III III I III IH ICH 
DDO 1 9 De ac III III EIGNET BEINE BEICNIEIESENEIENEIE EINE III REINE IEIEIEI HEHE ICH IE HE 


8082088 ENVIRONMENT DIVISION. 
2808210 CONFIGURATION SECTION. 
000228 SOURCE-COMPUTER. IBM-PC. 
0002308 OBJECT-COMPUTER. IBM-PC. 
2800240 SPECIAL-NAMES. 

000250 DECIMAL-POINT IS COMMA, 
2800268 CURSOR IS CURSOR-POS, 
200270 CONSOLE IS CRT. 

000280 INPUT-OUTPUT SECTION. 
820298 FILE-CONTROL. 


VII BI TEE EEE E22 02 2 20202727272 202 27272727272 122 2702127272 21272727272 7272 127272727272 1272272 2720272727272 /2 02 02720272702 72727 


000310 DATA DIVISION. 


200328 

000330 WORKING-STORAGE SECTION. 

800348 

200350 Bi CURSOR-POS PIC 9(4) VALUE B191. 
200368 


800 37V HH EEE RIIIIIIIIBIIIIIOIIBIOIHIHEEIEIEEDEIEIEIIIEIIBIIIIGIIBIGIHHIEIHHIBIHIOIOIEIER 
200380* PARAMETER FÜR EIN/AUSGABE VON BILDSCHIRM-ATTRIBUTEN BZW. DATEN * 
DU 390 BRITTA IEIIIIIEIIIIIIEIEIIIIIEETE III III EKIEIEIERR 
000408 

BBB418 81 EIN-AUSGABE PIC X(1) VALUE X”B7”. 

000420 | 
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000430 Di SCHREIBEN-ZEICHEN PIC 9(2) COMP VALUE 1. 


0004408 01 SCHREIBEN-ATTR PIC 9(2) COMP VALUE 3. 
080458 

000460 81 FORM-PARAMETER. 

200478 03 LAENGE PIC 9(4) COMP. 

000480 03 BILDSCHIRM-POS PIC 9(4) COMP. 

800498 83 PUFFER-POS PIC 9(4) COMP. 

008508 

000518 Di TASTEN-ATTR PIC X(8). 
ICIEXTERERERERFERDELESERTEEDERTETUIE EIER ERERSEEDERE NE EEE E22 222 2 2722 2722 
080538 81 FUNKTION PIC 99 COMP VALUE 2. 
080549 

000558 di PARAMETER. 

800568 05 JA-NEIN PICX. 

2800578 05 ZWEI PIC 99 COMP. 


200580 085 UNDEFINIERT PIC X(6). 
IDERTEELLLEESEERETE SER REEREEE EEE EEE EEE 272222 272322272722 32 2727202 22727202 2727275 
BRB6dO Bi STATUS-TABELLE. 

000618 85 S-ELEM PIC 99 COMP OCCURS 8. 

B00620 81 ZEICHEN PIC X. 

280630 Bi TASTATUR-STATUS PIC 99 COMP. 


0064 D 33 III TEEN IEIE II IIIIIIIIIIIIIIEIEITIIIIIIIOIIGIIEH 


080650 Di DISPLAY-FELD PIC 9(82). 

280678 91 PGM26-80-ATTR. 

000680 83 FILLER PIC X(8174) VALUE ALL X”03”. 
200698 83 FILLER PIC X(0054) VALUE ALL X”31”. 
280708 03 FILLER PIC X(8826) VALUE ALL X”0d3”. 
2889718 083 FILLER PIC X(8854) VALUE ALL X”31”. 
0809720 083 FILLER PIC X(90826) VALUE ALL X”03”. 
000738 83 FILLER PIC X(8054) VALUE ALL X”31”. 
000740 83 FILLER PIC X(1612) VALUE ALL X”083”. 


28807508 91 PGM26-80 
800768 03 PGM26-08-Q101 PIC X(D080) VALUE " pm 


2088778- TE EEEEEEEEEEEEEEEEEEEnEEn ” 
800788 83 PGM26-08-8281 PIC X(Bdd1) VALUE "|". 
208798 03 FILLER PIC X(8878). 


800808 03 PGM26-08-0288 PIC X(BB81) VALUE "|". 
808810 03 PGM26-08-08391 PIC X(B8d1) VALUE "|". 
200828 83 FILLER PIC X(0978). 

800838 83 PGM26-88-03808 PIC X(8001) VALUE "Ir. 
800848 83 PGM26-08-0401 PIC X(BB01) VALUE "|”. 
800858 83 FILLER PIC X(8825). 

200860 83 PGM26-00-8427 PIC X(09835) VALUE "Abtasten der shift-ähn 
200878- "lichen Tasten”. 

000888 83 FILLER PIC X(8018). 

000898 23 PGM26-00-8480 PIC X(B801) VALUE "|". 
200908 83 PGM26-88-8501 PIC X(D801) VALUE "|". 


9-136 


Demonstrationsprogramme 


200918 83 FILLER PIC X(8878). 

800920 B3 PGM26-08-8588 PIC X(0881) VALUE "|". 
200938 03 PGM26-00-B601 PIC X(0881) VALUE "|”. 
000948 83 FILLER PIC X(8878). 

880958 B3 PGM26-80-0680 PIC X(B8d1) VALUE "|". 
000960 03 PGM26-08-0781 PIC X(BdB1) VALUE "|". 
2800978 83 FILLER PIC X(8878). 

280980 03 PGM26-08-D78d PIC X(D081) VALUE "|" 
0008999 83 PGM26-Q8-Aed1ı PIC X(B801) VALUE "|". 
881008 83 FILLER PIC X(8878). 

281018 B3 PGM26-Bd-B88d PIC X(B881) VALUE "|". 
281029 03 PGM26-88-Q981 PIC X(B881) VALUE "|". 
801030 03 FILLER PIC X(90878). 

B81040 83 PGM26-88-8980 PIC X(BdA1) VALUE "|". 
281050 03 PGM26-8-1001 PIC X(BRB1) VALUE ”|”. 
881068 83 FILLER PIC X(8078). 

2801070 83 PGM26-Bd-1880 PIC X(Bdd1) VALUE ”|”. 
01080 03 PGM26-Bd-1101 PIC X(B881) VALUE "|". 
001098 83 FILLER PIC X(8878). 

001108 03 PGM26-BA-1180 PIC X(B08d1) VALUE "|" 
BB1110 03 PGM26-8d-1281 PIC X(Bdd1) VALUE "|”. 
081120 03 FILLER PIC X(8978). 

091138 03 PGM26-00-1280 PIC X(B801) VALUE "|". 
01149 03 PGM26-80-1301 PIC X(BBd1) VALUE "|". 
881150 83 FILLER PIC X(0078). 

DB1168 d3 PGM26-88-1380 PIC X(BBd1) VALUE "|". 
2881179 03 PGM26-80-1401 PIC X(BBA1) VALUE "|". 
201180 03 FILLER PIC X(8878). 

B81190 B3 PGM26-00-1488 PIC X(BB81) VALUE "|". 
891200 03 PGM26-08-1501 PIC X(DdB1) VALUE "|". 
2801210 03 FILLER PIC X(8878). 

001228 03 PGM26-08-15808 PIC X(B881) VALUE "|". 
801230 03 PGM26-08-1601 PIC X(B881) VALUE "|”. 
001240 83 FILLER PIC X(8978). 

201250 83 PGM26-D0-1688 PIC X(8001) VALUE ”]” 
001260 d3 PGM26-88-1701 PIC X(Bd01) VALUE "|". 
281278 83 FILLER PIC X(8878). 

001288 03 PGM26-80-1788 PIC X(BdB1) VALUE "|". 
801290 03 PGM26-88-1801 PIC X(0013) VALUE "| Esc = Ende”. 
201300 83 FILLER PIC X(8866). 

881318 03 PGM26-DQ-1888 PIC X(B801) VALUE "|". 
001329 03 PGM26-B8-1901 PIC X(Bd01) VALUE ”|”. 
801330 83 FILLER PIC X(8078). 

001340 03 PGM26-88-1988 PIC X(OB81) VALUE "|". 
8081350 03 PGM26-09-2001 PIC X(dd8d) VALUE ”| 
801368- | nenne ||" 
201378 03 PGM26-08-2181 PIC X(0835) VALUE ”| Ctri Shift-1 AL 
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B81388- t Shift-r”. 

081390 83 FILLER PIC X(8812). 

001408 B3 PGM26-98-2148 PIC X(0033) VALUE "Caps Ins Nun 
BR1410- ”  _Sceroll |”. 

001420 B3 PGM26-09-2201 PIC X(B080) VALUE " mm 
001438- a 


00144033333 BHBRRWRRRERBEIBEIBRIEIBIIIRSIEIBIEIGIIIGBIGIIGIIEIHTIEIGEIIEIGKIGIIEIHT IHNEN 


881458 PROCEDURE DIVISION. 
08081460 PROGRAMM-STEUERUNG SECTION. 
BB1478 PR-1080. 


001480 
801498 


PERFORM VORLAUF. 
PERFORM VERARBEITUNG UNTIL ZEICHEN = X”1B”. 


DR158D PR-9999. 


801518 
281528 


EXIT PROGRAM. 
STOP RUN. 


881 SET LEE ES EEE 20202027275 20202 0202027202 7272 72727202 1202702121212 727272727272 72 7272721221272 727272 2727272727272 72 2721272727227 


0081548 VORLAUF SECTION. 
081558 VOR-1088. 


801568 
881578 
001589 
001598 
801608 
801618 
0801620 
081638 
001648 
001650 
001660 


VOR-9999. 


DISPLAY SPACE UPON CRT. 

MOVE 1768 TO LAENGE. 

MOVE 1 TO BILDSCHIRM-POS PUFFER-POS. 

CALL EIN-AUSGABE USING SCHREIBEN-ATTR FORM-PARAMETER 
PGM26-ßß-ATTR. 

CALL EIN-AUSGABE USING SCHREIBEN-ZEICHEN FORM-PARAMETER 
PGM26-80. 

EXIT. 


80167: HE BEREITEN 


0801680 VERARBEITUNG SECTION. 
B81698 VER-108R. 


801708 
0881718 
001728 
001738 
801740 
801758 
D81760 
001778 
Bn1780 
881798 
801800 
Bn1810 
201820 
081839 
081848 
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MOVE 2 TO ZWEI. 
CALL X”Bß” USING FUNKTION PARAMETER. 
CALL X”F5” USING JA-NEIN STATUS-TABELLE. 
MOVE 7 TO LAENGE. 
MOVE 1657 TO BILDSCHIRM-POS. 
IF S-ELEM (1) = 1 
MOVE ALL X”1B” TO TASTEN-ATTR 
ELSE MOVE ALL X”83” TO TASTEN-ATTR. 
CALL EIN-AUSGABE USING SCHREIBEN-ATTR FORM-PARAMETER 
TASTEN-ATTR. 


MOVE 1648 TO BILDSCHIRM-POS. 
IF S-ELEM (2) = 1 


001858 
081868 
801870 
001880 
001890 
801988 
BR1918 
2801920 
801930 
D01940 
881958 
801960 
881970 
B81980 
8081998 
802088 
282819 
002020 
002038 
002048 
002058 
002068 
202078 
002089 
802098 
882108 
882118 
002120 
802138 
002140 
082150 
882169 
282178 
002180 
282198 
002208 
002218 
002228 
002238 
002240 
802258 
802268 
082278 
002280 
002298 
802308 
802318 
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MOVE ALL X”1B” TO TASTEN-ATTR 
ELSE MOVE ALL X”83”" TO TASTEN-ATTR. 
CALL EIN-AUSGABE USING SCHREIBEN-ATTR FORM-PARAMETER 
TASTEN-ATTR. 


MOVE 1665 TO BILDSCHIRM-POS. 
IF S-ELEM (3) = 1 
MOVE ALL X”1B” TO TASTEN-ATTR 
ELSE MOVE ALL X”83” TO TASTEN-ATTR. 
CALL EIN-AUSGABE USING SCHREIBEN-ATTR FORM-PARAMETER 
TASTEN-ATTR. 


MOVE 1673 TO BILDSCHIRM-POS. 
IF S-ELEM (4) = 1 
MOVE ALL X”1B” TO TASTEN-ATTR 
ELSE MOVE ALL X”83” TO TASTEN-ATTR. 
CALL EIN-AUSGABE USING SCHREIBEN-ATTR FORM-PARAMETER 
TASTEN-ATTR. 


MOVE 1621 TO BILDSCHIRM-POS. 
IF S-ELEM (5) = 1 
MOVE ALL X”1B” TO TASTEN-ATTR 
ELSE MOVE ALL X”83” TO TASTEN-ATTR. 
CALL EIN-AUSGABE USING SCHREIBEN-ATTR FORM-PARAMETER 
TASTEN-ATTR. 


MOVE 1683 TO BILDSCHIRM-POS. 
IF S-ELEM (6) = 1 
MOVE ALL X”"1B” TO TASTEN-ATTR 
ELSE MOVE ALL X”83” TO TASTEN-ATTR. 
CALL EIN-AUSGABE USING SCHREIBEN-ATTR FORM-PARAMETER 
TASTEN-ATTR. 


MOVE 1612 TO BILDSCHIRM-POS. 
IF S-ELEM (7) = 1 
MOVE ALL X”1B” TO TASTEN-ATTR 
ELSE MOVE ALL X”03” TO TASTEN-ATTR. 
CALL EIN-AUSGABE USING SCHREIBEN-ATTR FORM-PARAMETER 
TASTEN-ATTR. 


MOVE 1629 TO BILDSCHIRM-POS. 
IF S-ELEM (8) = 1 
MOVE ALL X”1B” TO TASTEN-ATTR 
ELSE MOVE ALL X”03” TO TASTEN-ATTR. 
CALL EIN-AUSGABE USING SCHREIBEN-ATTR FORM-PARAMETER 
TASTEN-ATTR. 
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202320 CALL X”D9” USING TASTATUR-STATUS. 
082338 IF TASTATUR-STATUS NOT = 8 
002340 CALL X”83” USING ZEICHEN. 
892350 VER-9999. 

002368 EXIT. 


Abtasten der shift-ahnlichen Tasten 


Esc = Ende 


Ctrl  Shift-l Alt  Shift-r Num 


Dialog-Testlauf (PGM26) 
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PGM27: Testen, ob ein Monochrom- oder ein Farb- 
bildschirm angeschlossen ist 


BRAK1d IDENTIFICATION DIVISION. 


800028 PROGRAM-ID. PGM27. 
200030 AUTHOR. R. HABIB. 
280048 DATE-WRITTEN. 81-81-1987. 


000050 DATE-COMPILED. B1-Apr-87 19:36. 


II EEE EEE 2 202027202722 202 2 22 2 202 2727272727272 72 212 127272727272 727272 272727272 727272 7202027220272 2020272027272 02027275 
VILIMDELEEE EEE 2 2202202020202 22 0202720270272 7272727202 27212727272 7272 72727272 2122727272722 020272 02,272 0202727202702 72 02727275 


WELLETEE xx 
B00090** PROGRAMMFUNKTION: *% 
DOH1DO** *% 
B0B110** DIESES PROGRAMM PRÜFT, OB DER ANGESCHLOSSENE BILDSCHIRM EIN ** 
800120** MONOCHROM- ODER FARBBILDSCHIRM IST. *% 
DO0130** *% 


WIEMEVELLEEREEEEPERIEETEIIEIE EEE EEE EEE EEE LEE ELSE EO UOTE LEER 
DD 15. 3 € ae a8 D8 D6 a6 DE a6 a6 3636 DE aa BE EEE 
288168 ENVIRONMENT DIVISION. 

BBR178 CONFIGURATION SECTION. 

BRDA1ED SOURCE-COMPUTER. IBM-PC. 

880198 OBJECT-COMPUTER. IBM-PC. 

000200 SPECIAL-NAMES. 

200210 CONSOLE IS CRT. 

000228 INPUT-OUTPUT SECTION. 

000238 FILE-CONTROL. 


800240 HH EHRE N 


00808258 DATA DIVISION. 


000268 

0008278 WORKING-STORAGE SECTION. 

000289 

0200298 01 PORT-ADRESSE PIC 9(5). 
B08300 81 STATUS-INFO PIC 99 COMP. 
2880318 

280328 81 HILF PIC 9(4) COMP. 
808330 81 HILF2 REDEFINES HILF1. 

000348 85 BYTE2 PIC X(1). 
000350 85 BYTEN PICXC). 
000360 

208370 


B00380 Bi TASTEN-PROGRAMMIERUNG PIC 99 COMP VALUE 8. 
8008398 81 TASTEN-TABELLE. 


200400 03 TASTEN-NR PIC 99 COMP. 
0800410% FUNKTIONSTASTEN Fi, F2 
200420 83 FILLER PIC X(6) VALUE X”82003B02083C”. 
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800430 83 FILLER PIC X(2) VALUE X”d11B”. 

D00440* ENDE-KENNZEICHEN 

080450 83 FILLER PIC X VALUE X”O8”. 
PELTITERERBEEERTETERTERTUEEEIEE REES EURE EEE 222222 27222 2727222727202 °2 272720202 2727272°2 27, 
800478 01 DUMMY PICX. 


BDO 4 BD u vr ee EEE EEE III TRUE HU RERRRURK 


880498 PROCEDURE DIVISION. 

800500 PROGRAMM-STEUERUNG SECTION. 

D88518 PR-1000. 

2005208 PERFORM VORLAUF. 

880530 PERFORM VERARBEITUNG UNTIL TASTEN-NR = 3. 

200548 PR-9999. 

880550 EXIT PROGRAM. 

280560 STOP RUN. 

88057 DH HB I I BBEEIEIEIIIIIIEIEIEIEIEEIEIEIIEIIEIEIEIEIEEETEIEIEIEIEIEEEREEEEIEIEEHHNIEN TERN 
B00588 VORLAUF SECTION. 

000598 VOR-1808. 

800608 CALL X”BB” USING TASTEN-PROGRAMMIERUNG 

800610 TASTEN-TABELLE. 

800628 DISPLAY SPACE UPON CRT. 

208630 DISPLAY "TESTEN BILDSCHIRM” AT 8138. 

000648 DISPLAY "SIE HABEN ” AT 1801. 

080650 DISPLAY "Fi = TESTEN MONOCHROM-BILDSCHIRM” AT 2591. 
BRA660 DISPLAY ”F2 = TESTEN FARB-BILDSCHIRM” AT 25480. 
B80678 VOR-9999. 

800688 EXIT. 

WIIRETELZESZ ES 220202027202 2720202 027 2727212727272 2721272 2/2 2727272202722 721272121202 2722122727212 02 2727272272722 722 3 
80807008 VERARBEITUNG SECTION. 

B08718 VER-180D. 


800728 ACCEPT DUMMY AT 1819. 

200730 

2890740 IF TASTEN-NR = 1 PERFORM TEST-MONO 
2097508 ELSE IF TASTEN-NR = 2  PERFORM TEST-FARB. 
000768 


BnB77d VER-9999. 

0880780 EXIT. 

80.879 8:33 BB BRBREBBRBRBEBRBBBBBIEIBGBBBEEGIBBEBBEBBBBEIBBGREBIBEEBEIRIREIE N 
Bunedd TEST-MONO SECTION. 

Bun81ıd TM-1088. 

200828 MOVE 954 TO PORT-ADRESSE. 

200838 CALL X”87” USING PORT-ADRESSE STATUS-INFO. 

200849 MOVE STATUS-INFO TO HILF1. 

280858 MULTIPLY 16 BY HILFI. 

000868 
WIEXDERLLELEDTETEITIEEIIUTETEETTEEERTERTERTEREETOEEETERUEEDERDEEEE SEE 
BnDd8ad** 954 IST DIE ADRESSE DES MONOCHROM-PORT-STATUS (HEX = 3BA) *% 
DODBIN“« *%* 
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DA0900** STATUS-INFO IST UNGLEICH X”Fß”, WENN ES SICH UM EINEN *%* 
800918%** MONOCHROM-BILDSCHIRM HANDELT. *% 
00 I 23H BB IIIIIIIIIIEIEIENEIEHEIEHEIE HEHE EEE NEIEK KUREN IRRE 
800930 

000948 IF BYTE1 = X”Fß” DISPLAY "FARB-BILDSCHIRM "AT 1020 
200950 ELSE DISPLAY "MONOCHROM-BILDSCHIRM” AT 1829. 

2008968 TM-9999. 

200979 EXIT. 

ITCR RT EEE EZ 20212 12 12 2027272720202 027272721212 27271272 720272727272 12 720202027212 12 0212027 2727272 202020202 202 2 2727272 2.2.2/2/2727 
200998 TEST-FARB SECTION. 

DR1DDaDd TF-1080. 

DA1D1D MOVE 986 TO PORT-ADRESSE. 

281028 CALL X”87” USING PORT-ADRESSE STATUS-INFO. 

801030 MOVE STATUS-INFO TO HILF]. 

801049 MULTIPLY 16 BY HILF1. 


291058 

00186 033338 BBRRRBRBBRBEBRBBBBBBRBIBBBIEBEGBBGBEIBBIEBEBBEEBEBRBEREEERERERENN 
BO1070** 986 IST DIE ADRESSE DES FARB-PORT-STATUS (HEX = 3DA) xx 
BRIDED** *% 
BR1090** STATUS-INFO IST UNGLEICH X”FQ”, WENN ES SICH UM EINEN ** 
001100%%* FARB-BILDSCHIRM HANDELT. *%* 
BE1110%*% *% 
URRFTELLLLEELERTSERT EEE OEE EEE EEE EEE EEE EEEE EEE 222 
281138 

DD1148 IF BYTEI = X”F8” DISPLAY "MONOCHROM-BILDSCHIRM” AT 1028 
281150 ELSE DISPLAY "FARB-BILDSCHIRM ” AT 1028. 


BA1168 TF-9999. 
0881178 EXIT. 


TESTEN BILDSCHIRM 


SIE HABEN FARB-BILDSCHIRM 


F1 = TESTEN MONOCHROM-BILDSCHIRM F2 = TESTEN FARB-BILDSCHIRM | 


Dialog-Testlauf (PGM27) 
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PGM28: Trennen und Zusammenketten von Datei- 
namen 


B8Ra18 IDENTIFICATION DIVISION. 


200028 PROGRAM-ID. PGM28. 
200030 AUTHOR. R. HABIB. 
0008848 DATE-WRITTEN. 81-81-1987. 


0800858 DATE-COMPILED. B1-Apr-87 19:37. 


WEITERE ESE E22 2 2020202020272 7202021202 2020272727802 727272 2020272727812 7272027212 72702 202020270202 12.2 20202120202 127.2 7202727270 
WIINEELLESE ES SS 2 2020202027272 702 2020202020212 2720272127272 7202727212272 7272021202712 202722 20202020202 02712,2 02722 27272727 


BDDDENx** ”% 
B80090%*%* PROGRAMMFUNKTION: *% 
DOD1DD** *% 
Baa110** DIESES PROGRAMM KÖNNEN SIE BENUTZEN, UM DATEINAMEN NACH DOS- *%* 
Dn0120%** KONVENTIONEN ZU TRENNEN ODER ZUSAMMENZUKETTEN. xx 
DDO13D** *% 


VIIREVEEEEE ES 222 2 2020202 2727202727202 2020272727212 0212 2727212727202 2727272120202 02 2027272727212 1202020227272 27272 272727 
D0d 15 DEE ERBBBIIIIIIIIIIIIIEIIEIIIIIITITITIIIIIIIEI IE IEIEIEI III HEHE KH 


888160 ENVIRONMENT DIVISION. 

208178 CONFIGURATION SECTION. 

BRD18d SOURCE-COMPUTER. IBM-PC. 

208198 OBJECT-COMPUTER. IBM-PC. 

200208 SPECIAL-NAMES. 

288219 CONSOLE IS CRT. 

DOM 2 20 % 333 3 36 3636 36 36 3 36 EEE BEE BE BE BEE BB BEE EEE 
0080230 DATA DIVISION. 

000240 

000250 WORKING-STORAGE SECTION. 


ÖÜDO2CD KREIEREN EIER IE IHNEN 


000270* PARAMETER FÜR EIN/AUSGABE VON BILDSCHIRM-ATTRIBUTEN BZW. DATEN * 


80028 HR EBENEN RK 


2002908 81 EIN-AUSGABE PIC X(1) VALUE X”B7”. 
000308 

B08310 Bi LESEN-ZEICHEN PIC 9(2) COMP VALUE 8. 
00320 Bi SCHREIBEN-ZEICHEN PIC 9(2) COMP VALUE 1. 
200330 

0083408 Bi LESEN-ATTR PIC 9(2) COMP VALUE 2. 
0080350 81 SCHREIBEN-ATTR PIC 9(2) COMP VALUE 3. 
200360 

800370 Bi FORM-PARAMETER. 

000380 03 LAENGE PIC 9(4) COMP. 

080390 83 BILDSCHIRM-POS PIC 9(4) COMP. 

800408 83 PUFFER-POS PIC 9(4) COMP. 


80041 DE HOBHEBRBRBRBRIBBRIBRNIBBEIBBIEIBERIHBBEEBBERIGEIGEIGHEEITEIGBEIIHIGHEIIH RI N 


200428 Di TASTEN-PROGRAMMIERUNG PIC 99 COMP VALUE 2. 
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0080430 Di TASTEN-TABELLE. 


000440 03 TASTEN-NR PIC 99 COMP. 
B00450* FUNKTIONSTASTE Fi =1, F2=2 

0808460 83 FILLER PIC X(86) VALUE X”02003BB2883C”. 
000470% DIE TASTEN: ESC=3 


000488 83 FILLER PIC X(2) VALUE X”Bd11B”. 

000490* ENDE-KENNZEICHEN 

800508 83 FILLER PIC X VALUE X”OB”. 

WIN ERNLEE EEE 22 2 222 2 2 2 22202 2 2120202027272 7202020202122 02.2.20272 2 20202 212022212 20222 2.2 2 2122.22 72 2.2.2727: 
200528 081 DATEISPEZIFIKATION PIC X(28). 

000530 Di LAUFWERK PIC X(6). 

000548 Di DATEINAME PIC X(18). 

0808550 81 DATEIERWEITERUNG PIC X(5). 


VPLEITELLLEE SE Z EEE 8 2020202 2087272720208 0872 72720202 120272 7272727202 20272/2122 0202727027272 021212 0202020202.2720272.2.272727 


B00588 91 PGM28-Q8-ATTR. 


B0065980 83 FILLER PIC X(8181) VALUE ALL X”83”. 
Boacae 3 FILLER PIC X(0032) VALUE ALL X”31”. 
BoB6IE 83 FILLER PIC X(8848) VALUE ALL X"83". 
BO0620 83 FILLER PIC X(0032) VALUE ALL X"31". 
800638 83 FILLER PIC X(089048) VALUE ALL X”03”. 
BO0648 83 FILLER PIC X(0832) VALUE ALL X"31". 
BO0650 83 FILLER PIC X(0294) VALUE ALL X”83”. 
200660 83 FILLER PIC X(08014) VALUE ALL X”1B”. 
Bo06”E 83 FILLER PIC X(8216) VALUE ALL X”83”. 
D00680 83 FILLER PIC X(0082) VALUE ALL X”1B”. 
800690 83 FILLER PIC X(8158) VALUE ALL X”03”. 
800788 03 FILLER PIC X(B8888) VALUE ALL X”1B”. 
800719 03 FILLER PIC X(8152) VALUE ALL X”03”. 
B00720 83 FILLER PIC X(0883) VALUE ALL X”1B". 
208730 83 FILLER PIC X(0303) VALUE ALL X”03”. 
B00748 03 FILLER PIC X(2002) VALUE ALL X”0B”. 
200750 83 FILLER PIC X(2015) VALUE ALL X”83”. 
BO076E 83 FILLER PIC X(0002) VALUE ALL X”dB”. 
BeoTE 683 FILLER PIC X(0821) VALUE ALL X”83”. 
000789 83 FILLER PIC X(00883) VALUE ALL X”OB”. 
B00790 83 FILLER PIC X(8434) VALUE ALL X”83”. 
SEELEN PGM28-00 

80818 03 PGM28-D0-D101 PIC X(BÖ80) VALUE " pm 
BBDBZL-_ "mm nn 
200838 03 PGM28-88-0281 PIC X(B881) VALUE ”|”. 
BoB8sı0 83 FILLER PIC X(8078). 


B08858 B3 PGM28-08-0288 PIC X(B801) VALUE "|". 
BD80860 23 PGM28-08-0381 PIC X(8881) VALUE ”|”. 
800870 83 FILLER PIC X(8078). 

200889 83 PGM28-08-0380 PIC X(2dd1) VALUE ”| 
200890 03 PGM28-D8-8401 PIC X(BdB1) VALUE "|". 
208908 83 FILLER PIC X(8824). 
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808910 03 PGM28-88-0426 PIC X(8826) VALUE "Trennen und Zusammenke 
800928- "tten”. 
200930 03 FILLER PIC X(8828). 


280940 83 PGM28-00-0480 PIC X(BA01) VALUE ”|”. 
800958 03 PGM28-08-0501 PIC X(0081) VALUE ”|”. 


288968 83 FILLER PIC X(89838). 
080978 03 PGM28-08-8532 PIC X(8014) VALUE ”von Dateinamen”. 
280988 83 FILLER PIC X(8034). 


080998 03 PGM28-80-08588 PIC X(@Bd1) VALUE ”|”. 
281008 03 PGM28-08-0601 PIC X(BdB1) VALUE "|". 
BD1018 83 FILLER PIC X(8878). 

881020 83 PGM28-00-D688 PIC X(BRB1) VALUE "|". 
881030 B3 PGM28-88-8701 PIC X(B8d1) VALUE "|". 
881040 83 FILLER PIC X(8078). 

881050 D3 PGM28-00-8788 PIC X(Dd01) VALUE "|". 
281068 03 PGM28-B0-B8d1 PIC X(O0B1) VALUE ”"|”. 


881078 83 FILLER PIC X(0978). 

201080 83 PGM28-08-8888 PIC X(QBd1) VALUE ”|”. 

881090 83 PGM28-09-0901 PIC X(0025) VALUE ”| Dateiname mit Laufwe 
BB1108- "rk:”. 

Bu11D 03 FILLER PIC X(8054). 


081128 03 PGM28-00-B980 PIC X(D801) VALUE ”|”. 
081130 03 PGM28-B8-1001 PIC X(2881) VALUE "|". 
001140 03 FILLER PIC X(0878). 

881150 03 PGM28-B8-1088 PIC X(2H81) VALUE "|". 
AB1160 03 PGM28-88-1101 PIC X(B881) VALUE "|". 
081178 03 FILLER PIC X(2978). 

AB1188 03 PGM28-80-1180 PIC X(BBB1) VALUE "|". 
Laufverk:”. 


281198 83 PGM28-08-1281 PIC X(0812) VALUE "| 

8081208 83 FILLER PIC X(8867). 

881210 03 PGM28-QQd-1288 PIC X(Bdd1) VALUE "|". 

001228 03 PGM28-08-1381 PIC X(BBd1) VALUE "|". 

801230 83 FILLER PIC X(8078). 

001240 03 PGM28-08-1380 PIC X(D0B1) VALUE "|". 

001258 03 PGM28-08-1481 PIC X(8813) VALUE | Dateinanme:”. 
801268 83 FILLER PIC X(8066). 

801278 83 PGM28-0A-1480 PIC X(Bdd1) VALUE ”|”. 

801280 03 PGM28-98-1501 PIC X(0081) VALUE ”|”. 

201290 03 FILLER PIC X(0078). 

881300 03 PGM28-08-15808 PIC X(88d1) VALUE "Ir. 

D81318 03 PGM28-08-1601 PIC X(815) VALUE "| Erweiterung:”. 


801328 83 FILLER PIC X(8864). 
801330 03 PGM28-08-1680 PIC X(0881) VALUE "|". 
001340 03 PGM28-08-1701 PIC X(0881) VALUE "|". 
801358 83 FILLER PIC X(8978). 
801368 03 PGM28-00-1780 PIC X(BdB1) VALUE "|". 
881378 83 PGM28-08-1801 PIC X(B081) VALUE "|". 
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801380 83 FILLER PIC X(8078). 

881398 03 PGM28-0-1880 PIC X(Bdd1) VALUE ”|”. 

D01409 03 PGM28-80-1901 PIC X(BB8d) VALUE " |Jm———u—————— 
D81418- ” ” 
001420 03 PGM28-08-2801 PIC X(8853) VALUE "| Fi = Trennen F2 


001430- ” = Zusammenketten Esc = Ende”. 

Ö01440 83 FILLER PIC X(8826). 

001458 3 PGM28-08-2080 PIC X(8081) VALUE "I". 

001468 83 PGM28-88-2101 PIC X(DO80) VALUE 1° Im 
801470- ee 
01488 91 PGM28-91 REDEFINES PGM28-00 

001490 83 FILLER PIC X(8667). 

001500 83 PGM28-81-0928 PIC X(8914). 

B81518 83 FILLER PIC X(8216). 

001528 03 PGM28-H1-1218 PIC X(B8082). 

801530 83 FILLER PIC X(8158). 

001540 03 PGM28-01-1418 PIC X(0008). 

881550 83 FILLER PIC X(9152). 


001560 83 PGM28-01-1618 PIC X(8893). 

0815 70:23 BB BB BBRRBRRBREBRBRBBBRBIBBIESBGRBBEEGBEBRBEBEGIRIEIBBEEGIIEIIENSEIEIEN 
0081580 PROCEDURE DIVISION. 

0801590 PROGRAMM-STEUERUNG SECTION. 

DO1I6Hd PR-1008. 

881610 PERFORM VORLAUF. 

801620 PERFORM VERARBEITUNG UNTIL TASTEN-NR = 3. 

881630 PR-9999. 

001640 EXIT PROGRAM. 

801650 STOP RUN. 

8166 0:33 EB BRBRRRREBRERBERIRBRERBBBRBBEISRBBBBBIEBBBEIBSBEIBBBERIGRERIEISNENN 
081670 VORLAUF SECTION. 

BB1680 VOR-1000. 

801690 DISPLAY SPACE UPON CRT. 


881700 

881710 CALL X”BÖ” USING TASTEN-PROGRAMMIERUNG 
091720 TASTEN-TABELLE. 
291730 

001749 MOVE 1689 TO LAENGE. 

001759 MOVE 1 TO BILDSCHIRM-POS PUFFER-POS. 
881769 


801778*--- ATTRIBUTE SCHREIBEN 

001788 CALL EIN-AUSGABE USING SCHREIBEN-ATTR 
001798 FORM-PARAMETER 
001800 PGM28-Q0-ATTR. 
BA1810 VOR-9999. 

0801820 EXIT. 


00 1830 33 BB 3 RB RRRERBBRIEIIBIERIENIBIBIEIHTIGEIBBIEIEIGEIBERTOEIGEIEIIGEIBE IHNEN 


801840 VERARBEITUNG SECTION. 
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801850 
081860 
001870 
001880 
201890 
881908 
891918 
881928 
801930 
B81948 
0881958 
D01968 
281978 
801988 
881999 
002008 
202010 
082028 
202030 
882040 
002050 
002069 
002079 
002080 
202090 
082108 
892110 
002120 
882138 
002148 
802158 
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VER-1880. 
CALL EIN-AUSGABE USING SCHREIBEN-ZEICHEN 
FORM-PARAMETER 
PGM28-PB. 
ACCEPT PGM28-81 FROM CRT. 


IF TASTEN-NR = 1 
MOVE PGM28-01-8928 TO DATEISPEZIFIKATION, 
CALL X”8C”" USING DATEISPEZIFIKATION, 
LAUFWERK, 
DATEINAME, 
DATEIERWEITERUNG 


MOVE LAUFWERK TO PGM28-91-1218 
MOVE DATEINAME TO PGM28-81-1418 
MOVE DATEIERWEITERUNG TO PGM28-81-1618 


ELSE IF TASTEN-NR = 2 


MOVE PGM28-901-1218 TO LAUFWERK 
MOVE PGM28-91-1418 TO DATEINAME 
MOVE PGM28-01-1618 TO DATEIERWEITERUNG 


CALL X”8D” USING DATEISPEZIFIKATION, 
LAUFWERK, 
DATEINAME, 
DATEIERWEITERUNG 


MOVE DATEISPEZIFIKATION TO PGM28-91-0928. 
VER-9999. 
EXIT. 


Demonstrationsprogramme 


Trennen und Zusanmmenketten 
von Dateinamen 
| Dateiname mit Laufwerk: BATTERIE 


Laufverk: C 


Dateinane: PGM28 


Erweiterung: CBL 


Dialog-Testlauf (PGM28) 
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PGM29: Aufbau einer eigenen Help-Bibliothek 


DRRB1Bd IDENTIFICATION DIVISION. 


280020 PROGRAM-ID. PGM29. 
800030 AUTHOR. R. HABIB. 
200048 DATE-WRITTEN. 81-81-1987. 


D00058 DATE-COMPILED. B1-Apr-87 19:38. 


WITT EEE EEE 2 2027202027202 02 027270272 202027020272 12 7270272027272 72 7272727212722 27272022 1220272 02127 2020272702 21212/20202 /2.2,27 
WITT EEE ES ES 2 2022 2022027202 2722727220272 72 27278 2727275727272 127202 272727270202 27221272 272721272 21272 2712722722272 0: 


VELTET ES x 
BRAQ9IQ** PROGRAMMFUNKTION: *%* 
ABO 1D0** x*% 


BRO110** DAS PROGRAMM DEMONSTRIERT DIE EINGABE EINES PASSWORTES UND *x* 
B00120%** DIE UNTERDRÜCKUNG DER VORANZEIGE BEI DER ACCEPT-ANWEISUNG MIT** 
B800130%** HILFE DER ASSEMBLER-ROUTINE X”AF”. #r 
DDO140%** *% 


VIIREI EEE ES 2 202 202 0202027027272 72 7202720270272 72721272 127272727212 127272727212 1272 1272727272722 72 1272727272272 27272 202727272727 
WIRKTE EL 2 2 2 20272 02 2 0222 272272127272 72 727272727272 72 7272 2027272727272 72727272 727272727272 727272727272 721272727272 75 7272712727275 
888178 ENVIRONMENT DIVISION. 

888180 CONFIGURATION SECTION. 

DOD19d SOURCE-COMPUTER. IBM-PC. 

000200 OBJECT-COMPUTER. IBM-PC. 

B00210 SPECIAL-NAMES. 

200220 CURSOR IS CURSOR-POS, 

200230 CONSOLE IS CRT. 

0088248 INPUT-OUTPUT SECTION. 

000258 FILE-CONTROL. 

WIIATELEE EEE 22 2222027227272 20272 272722727202 72 727272727272 72 727272 727272727272 7272727272722 7272727272 7272 72727272272 0273 


0800278 DATA DIVISION. 


000288 

200298 WORKING-STORAGE SECTION. 

000308 Di CURSOR-POS PIC 9(4) VALUE B101. 
D003108 01 HELP-ID PIC XX. 


VILBYI LELE EEE 2202 2 22 2 2 2020202727272 72 272 212 2727271271272 72 727272722 2721272727272 72 2720272702722 7212272127272 22202727 


000330* PARAMETER FÜR EIN/AUSGABE VON BILDSCHIRM-ATTRIBUTEN BZW. DATEN * 


DOD3ZADHRR RUE III EEE N 


200350 


B00368 Di EIN-AUSGABE PIC X(1) VALUE X”B7”. 
2008378 

00380 Bi SCHREIBEN-ZEICHEN PIC 9(2) COMP VALUE 1. 
008398 81 SCHREIBEN-ATTR PIC 9(2) COMP VALUE 3. 
000409 

08008410 Di FORM-PARAMETER. 

000420 03 LAENGE PIC 9(4) COMP. 


800430 83 BILDSCHIRM-POS PIC 9(4) COMP. 
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800440 83 PUFFER-POS PIC 9(4) COMP. 
TILETELDEE ES 2 2 202 21202 0202 020202727872 72 7272727212722 1212120202 0202020202027 2027272727272 202 2720202 202 1212.2,2.2.2.202.270270 
000460 Bi TASTEN-PROGRAMMIERUNG PIC 99 COMP VALUE 9. 
800478 81 TASTEN-TABELLE. 

200489 83 TASTEN-NR PIC 99 COMP. 

000490% FUNKTIONSTASTE FI] 

200500 83 FILLER PIC X(83) VALUE X”02083B”. 

8805 10% DIE TASTEN: ESC=2 

009529 83 FILLER PIC X(2) VALUE X"D11B”. 

0800530%* ENDE-KENNZEICHEN 

800540 83 FILLER PIC X VALUE X”d0”. 


WILELTELEE EEE 202 2020202020202 72 727272727272 121202127272 7272727272 72 2727212127272 727272727272 2727272 272 272127272 20202127202 7270 


B00578 91 PGM29-Oß-ATTR. 

200588 83 FILLER PIC X(8174) VALUE ALL X”03”. 
0800590 83 FILLER PIC X(8045) VALUE ALL X”31”. 
B00680 83 FILLER PIC X(8035) VALUE ALL X”03”. 
800619 83 FILLER PIC X(89845) VALUE ALL X”31”. 
200628 83 FILLER PIC X(8835) VALUE ALL X”03”. 
800630 83 FILLER PIC X(8045) VALUE ALL X”31”. 
080640 03 FILLER PIC X(8348) VALUE ALL X”03”. 
208650 83 FILLER PIC X(8840) VALUE ALL X”13”. 
200669 83 FILLER PIC X(0848) VALUE ALL X”03”. 
2800679 83 FILLER PIC X(0048) VALUE ALL X”13”. 
000680 83 FILLER PIC X(8848) VALUE ALL X”03”. 
0800698 03 FILLER PIC X(0840) VALUE ALL X”13”. 
800708 83 FILLER PIC X(B840) VALUE ALL X”03”. 
880710 83 FILLER PIC X(8848) VALUE ALL X”13”. 
200728 83 FILLER PIC X(08848) VALUE ALL X”03”. 
0800738 83 FILLER PIC X(8048) VALUE ALL X”13”. 
000748 83 FILLER PIC X(0913) VALUE ALL X”03”. 
808758 81 PGM29-08 


Bene 3 PGM29-BB-DIB1 PIC X(DBBB) VALUE "Ym—— 
BBB77)- mm m, 
BOT  B3  PCM29-DB-8201 PIC X(BBB1) VALUE "|". 

Bond 83 FILLER PIC X(B978). 

BB  B3  PCM29-BB-0288 PIC X(B801) VALUE "|". 

BBBBıE B3  PCM29-B8-D301 PIC X(B801) VALUE "|". 

Bon820 83 FILLER PIC X(2978). 

BBBB3sE US PGM29-08-0388 PIC X(O8B1) VALUE "|". 

BBBBıE MS PCM29-08-0401 PIC X(BBB1) VALUE "|". 


000850 83 FILLER PIC X(8819). 

200868 03 PGM29-08-8421 PIC X(8036) VALUE "Wie wird eine Help-Mas 
000878- "ke aufgerufen?”. 

B00888 83 FILLER PIC X(8823). 


00898 03 PGM29-08-0480 PIC X(B881) VALUE "|". 
800988 03 PGM29-98-0501 PIC X(BB881) VALUE ”|”. 
808910 83 FILLER PIC X(8078). 
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800928 
2800930 
200940 
000950 
800968 
200970 
800980 
200998 
281000 
BD1810 
B81920 
081030 
D81040 
201050 
BR1060 
2801078 
001080 
201098 
B01108 
BA1110 
D01120 
801130 
BB1148 
881150 
D01168 
2881170 
BD1180 
0881190 
291200 
801210 
091228 
801230 
001240 
2801250 
001260 
801270 
801280 
881298 
201308 
281310 
801328 
001338- 
001348 
091350 
2801360 
881378 
001388 
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B3 
03 
03 
03 
03 
03 
03 
03 
03 
03 
03 
03 
03 
03 
03 
03 
D3 
B3 
03 
03 
03 
03 
03 
83 
03 
83 
83 
03 
03 
83 
03 
03 
03 
03 
83 
03 
03 
03 
03 
03 
03 
03 
03 
D3 
83 
D3 


PGM29-88-0580 
PGM29-89-8691 
FILLER 
PGM29-00-0680 
PGM29-80-0791 
FILLER 
PGM29-00-0788 
PGM29-08-08891 
FILLER 
PGM29-B80-B88D 
PGM29-88-8981 
FILLER 
PGM29-08-0980 
PGM29-88-1881 
FILLER 
PGM29-88-1080 
PGM29-88-11891 
FILLER 
PGM29-08-1180 
PGM29-89-12891 
FILLER 
PGM29-00-1288 
PGM29-88-1391 
FILLER 
PGM29-80-1380 
PGM29-88-1491 
FILLER 
PGM29-08-1480 
PGM29-88-15091 
FILLER 
PGM29-B8-1580 
PGM29-88-1681 
FILLER 
PGM29-88-1680 
PGM29-88-1781 
FILLER 
PGM29-08-1788 
PGM29-88-1891 
FILLER 
PGM29-B0-1880 
PGM29-88-1981 


PGM29-0d-2081 PIC X(8813) VALUE ”| 


FILLER 


PGM29-80-2041 PIC X(8812) VALUE "Esc = 


FILLER 


PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 


PIC 


PIC 


X(8891) 
X(8881) 
X(8078). 
X(8881) 
X(8801) 
X(8078). 
X(8801) 
X(8887) 
X(8072). 
X(8881) 
X(8801) 
X(0078). 
X(8801) 
X(8881) 
X(8078). 
X(0881) 
X(8881) 
X(8078). 
X(8881) 
X(8881) 
X(8078). 
X(8881) 
X(8881) 
X(8078). 
X(8881) 
X(8881) 
X(8078). 
X(8881) 
X(8881) 
X(8878). 
X(8881) 
X(8881) 
X(8878). 
X(8081) 
X(8881) 
X(0078). 
X(8881) 
X(80881) 
X(0878). 
X(8881) 
X(00888) 


X(8827). 


X(8027). 


VALUE 
VALUE 


VALUE 
VALUE 


VALUE 
VALUE 


VALUE 
VALUE 


VALUE 
VALUE 


VALUE 
VALUE 


VALUE 
VALUE 


VALUE 
VALUE 


VALUE 
VALUE 


VALUE 
VALUE 


VALUE 
VALUE 


VALUE 
VALUE 


VALUE 
VALUE 


VALUE 
VALUE 


rl 


= Hilfe”. 


Ende”. 


PGM29-00-2088 PIC X(Bdd1) VALUE ”|”. 


Demonstrationsprogramme 


281390 B3 PGM29-08-2101 PIC X(B08Q) VALUE " Leu 


d91408- N rl] ” 
BO1410 81 PGM29-91 REDEFINES PGM29-8B 
001428 03 FILLER PIC X(8727). 
801430 d3 PGM29-Q1-1008 PIC X(0040). 
001440 83 FILLER PIC X(80848). 
201450 03 PGM29-Q1-1188 PIC X(0849). 
01460 03 FILLER PIC X(0848). 
081478 83 PGM29-81-1208 PIC X(8040). 
001480 83 FILLER PIC X(0848). 
801498 03 PGM29-01-1388 PIC X(0840). 
2801500 83 FILLER PIC X(08848). 


881510 03 PGM29-81-1408 PIC X(0040). 

WREYI LE EEE E02 208022020202 02 0202727027272 72 72 2121272727272 72727272 2021272727272 7272212 2727272 2121212027272 727212720202 7202127225 
801538 PROCEDURE DIVISION. 

801540 PROGRAMM-STEUERUNG SECTION. 

281550 PR-1000. 

281568 PERFORM VORLAUF. 

001578 PERFORM VERARBEITUNG UNTIL TASTEN-NR = 2. 

80815808 PR-9999. 

881598 EXIT PROGRAM. 

201600 STOP RUN. 

RB EEL EZ ES 2 2 22 2722 272722727278 72 027272727272 7272 727272727272 72727202 7227272727272 720272727272 7272 727272727272 7202 2727270 
001620 VORLAUF SECTION. 

881630 VOR-1080. 


0801640 DISPLAY SPACE UPON CRT. 

B01650 

801660 CALL X”BÖ” USING TASTEN-PROGRAMMIERUNG TASTEN-TABELLE. 
881670 

081680 MOVE 1680 TO LAENGE. 

001698 MOVE 1 TO BILDSCHIRM-POS PUFFER-POS. 

001789 

BR1710%*%*%** ATTRIBUTE SCHREIBEN 

881728 CALL EIN-AUSGABE USING SCHREIBEN-ATTR FORM-PARAMETER 
0881738 PGM29-Öß-ATTR. 

801748 

091750 CALL EIN-AUSGABE USING SCHREIBEN-ZEICHEN FORM-PARAMETER 
201768 PGM29-B0. 

801770 VOR-9999. 

881780 EXIT. 


801 79:33 3ER 
ÖB18B0 VERARBEITUNG SECTION. 
BO1819 VER-1IDHR. 


881829 ACCEPT PGM29-01. 

001839 

001840 IF TASTEN-NR = 1 

201850 MOVE "H1” TO HELP-ID, 
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0891860 CALL ”"S:HELP” USING HELP-ID. 
281878 VER-9999. 
001880 EXIT. 


Wie wird eine Help-Maske aufgerufen? 


„aahrend der Ausfuhrung dieser Anwendung 
sann jederzeit die Fl-Taste gedrückt 
erden, um eine Help-Maske anzuzeipen. 


BE . 
Fi = Hilfe Esc = Ende | 


Dialog-Testlauf (PGM29) 


Hilfsmaske 1 
Die Sonderfunktionen des ACCEPT/DISPLAY-Moduls (ADIS) 


Tab vorwärts 
Tab rückwärts 


Feld auf ursprünglichen Wert 

Umwandeln von Klein- in Gropbuchstaben und umgekehrt 
Löschen bis zum Feldende 

Löschen eines Feldes oder einer Zeile 


Löschen aller Felder der ACCEPT-Maske 


(Beispiel für eine Help-Maske) 


it Fl oder Leerzeichen kehren Sie zur Anwendung 


Dialog-Testlauf (PGM29) 
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PGM30: Verbindung mit einer ASSEMBLER-Routine 


BB0B10 IDENTIFICATION DIVISION. 


0000828 PROGRAM-ID. PGM3B. 
200030 AUTHOR. R. HABIB. 
00048 DATE-WRITTEN. 81-01-1987. 


0200050 DATE-COMPILED. Bi-Apr-87 19:38. 


WITKTELLEE ES E82 2 20202020272 8027272027202 0272708 0202702 027272721272 20272 21202021202 21202 02.2.2 02.202022 02.202202 02.202.202, 
DO TORRENT EIER IE RER IRRE 


VLLLELES xx 
D00090** PROGRAMMFUNKTION: *% 
WELARLLE *% 
DOH110%*%* DIESES PROGRAMM ZEIGT DEN AUFRUF UND DIE PARAMETERÜBERGABE *% 
B00120** AN EIN ASSEMBLER-UNTERPROGRAMM. ir 
DOH130%*%* De 


D80 1 OLE EZ 2 2 2 2 2 20202 202202020202 202 202 2 2 202 202 2202 202020212 12.2.2,2,22 202 02021212702.272 202.2. 2.2 2 2.2.2.2.2020202,2,5 
080 ı SYLEE SE ES 20202 2 2 202 22 2 2 2 22 2 2272727272722 0272720202 212 2720202020272 02 1202 2021212121212 12121212 1272712.2.2,2,20270 


DRA168 ENVIRONMENT DIVISION. 
2888178 CONFIGURATION SECTION. 
DRD180 SOURCE-COMPUTER. IBM-PC. 
BRA19B OBJECT-COMPUTER. IBM-PC. 
000280 SPECIAL-NAMES. 

800218 DECIMAL-POINT IS COMMA, 
800220 CONSOLE IS CRT. 

0068230 INPUT-OUTPUT SECTION. 
0800248 FILE-CONTROL. 


WIIIATELENE EEE ES 2222 2020272027272 72 72 22 02121212 71271272 72727212 212121272 702727272 0212021272 7270202 2020212727272 0272 72.272 27 


2800260 DATA DIVISION. 


880270 

000280 WORKING-STORAGE SECTION. 

2800290 

000308 01 ENDE-MELDUNG PIC X(15) VALUE 
200319 "Ende (J/N) ===>”. 

2080328 01 ENDE-KENNZEICHEN PIC X VALUE SPACE. 
000330 88 ENDE VALUE "J” ”j”. 
WIIELTERLERTERERTERT ERDE TERUOEE TEUER EELEREREEELEREREELELEDDEEET 
000350 01 ZAHL PIC 2(82). 

000368 DI ZAHL2 PIC Z(82). 

BRR378 81 SUMME PIC Z(82). 


VITBITELLLENESZZS SE ZZ 2 2 2 202 2 222 2202020220202 222022 0202121220272 2727272720202 72 2727212 2122 221272027202 027, 


0200390* BINÄRE DATENFELDER 
000400 MN RECHEN-FELDER. 


000418 85 B-ZAHLI PIC 9(82) COMP. 
200420 05 B-ZAHL2 PIC 9(82) COMP. 
000430 05 B-SUMME PIC 9(82) COMP. 


IDEE TEE 2 E22 202 2020202 2 2020202 202 20212027202 1202 222 12 1212 212 2127221272272 727272727272 272 272727272 7212272727202 72 727270 
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000450 PROCEDURE DIVISION. 

000460 PROGRAMM-STEUERUNG SECTION. 

000470 PR-188B8. 

000480 PERFORM VERARBEITUNG UNTIL ENDE. 
000498 PR-9999. 

800508 EXIT PROGRAM. 

000519 STOP RUN. 

DOES ZRH EEE EEE ER N 
000538 VERARBEITUNG SECTION. 

000548 VER-1DDR. 

880550 DISPLAY SPACE UPON CRT. 


200560 DISPLAY "TESTEN DER VERBINDUNG MIT ASSEMBLER-UNTERPROGRAMMEN” 
200578 AT D11B. 

200580 DISPLAY "GEBEN SIE 2 ZAHLEN EIN” AT 8518. 

2800590 


VLLT ACCEPT ZAHLI AT 1918. 
000618 DISPLAY "+" AT 1014. 
200628 ACCEPT ZAHL2 AT 1016. 


000630 MOVE ZAHLI TO B-ZAHL]. 
0800649 MOVE ZAHL2 TO B-ZAHL2. 
808650 


200660 CALL "ADDNAME” USING B-ZAHL1, B-ZAHL2, B-SUMME. 
280670 


200688 DISPLAY "=" AT 1028. 
800698 MOVE B-SUMME TO SUMME. 
800708 DISPLAY SUMME AT 1822. 
008710 


280720 DISPLAY ENDE-MELDUNG AT 2401. 
200730 ACCEPT ENDE-KENNZEICHEN AT 2416. 
000748 VER-9999. 
888750 EXIT. 


GEBEN SIE 2 ZAHLEN EIN 


+ = 50 


Ende (J/N) ===> 


Dialog-Testlauf (PGM30) 
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aa h 2 2 3.2.2. 3.2.2.2 022.202 2.2.2022 2 2.2.2 202.2 202.2 2.2.2.2 0202.2.202.2 202.2 2022.52 02.2.2 2.2.2.2.) 
.% 
’ 


.% 
’ 


;* Dieses Assemblerprogramm zeigt, wie man Parameter 
;* von einem COBOL-Programm an ein Assembler-Unter- 


;‚* programm übergeben kann. 


.% 
’ 


;* Das Programm addiert 2 Zahlen, die im COBOL-Progrann* 
;* bestimmt werden. * 
.% %* 
’ 

ab ka 2 22.2 202.2 202.2. 8.2.2 202.2 2.2.2 2.2.2.2 202.2 202202022 2.2.2.2 2.2.2.2 2.2.2 .2.2 202.2 2.2.20. 


CSEG SEGMENT 
ASSUME CS:CSEG,DS:CSEG 
ORG 188H 


xxx X X x 


ADDNAME PROC FAR 
MOV BP,SP 
PUSHF 


LES SI,DWORD PTR [BP+12] ; ADRESSE DES 1. PARAMETER 


MOV AL,ES:[SI] ; PARAMETER 1 NACH AL 
LES SI,DWORD PTR [BP+8]) ; ADRESSE DES 2. PARAMETER 
ADD AL,ES:[SI] ;‚ ADDIERE 1. PARAMETER AUF AL 
LES SI,DWORD PTR [BP+4]) ; ADRESSE DES 3. PARAMETER 
MOV ES:[SI],AL ; SUMME NACH PARAMETER 3 
POPF 
RET 

ADDNAME ENDP 

CSEG ENDS 


END ADDNAME 
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PGM31: Aufbauen einer RTS.BIN-Datei mit eigener 
ASSEMBLER-Routine 


B0Ra1d IDENTIFICATION DIVISION. 

080028 PROGRAM-ID. PGM31. 
290038 AUTHOR. R. HABIB. 
000048 DATE-WRITTEN. 81-81-1987. 
000050 DATE-COMPILED. B1-Apr-87 19:39. 


WIDE E E22 22222 2 0272727272722 020212 1212120270272 72 7272727272 0272 2721272727222 2122727272722 2122127272722 27202127273 
(IILRDELLEE EEE SS 2 2020202727278 72 7027202 720212720272 7272 727272727202 72 12127272727 27272020212 72.202 0202 20212720202 2020202127273 


DEDDEen** ade 
020090%%* PROGRAMMFUNKTION: *% 
DOD1DD“« *% 
BdAa110** DIESES PROGRAMM ZEIGT DEN AUFRUF UND DIE PARAMETERÜBERGABE ** 
DRO120** AN EIN ASSEMBLER-UNTERPROGRAMM (RTS.BIN-DATEI) MIT 2 SUB- x% 
000130%** ROUTINEN. *% 
DO0140%** *% 
D00150%** DIE ERSTE SUBROUTINE WIRD MIT CALL X”81” AUFGERUFEN, HIER *% 
B0D0160** WERDEN 2 OPERANDEN ADDIERT. *% 
DDO1T7Ox% 

BOB180** DIE ZWEITE SUBROUTINE WIRD MIT CALL X”02” AUFGERUFEN; HIER ** 
D0D190** WERDEN 2 OPERANDEN SUBTRAHIERT *% 
D0D200%** *% 


"DIALER E25 27205 220272 272272020272 72 72727272 727272 7272757272 72727272 727272727272 727272 27272727202 7272727227272 7272727202727 
WII AA EEE 2 50502720272 272 2720272027272 72 727272 1272 272727272 27272727272 727202 2727272727272 727272 2720202727272 727272727272 72 027 
000238 ENVIRONMENT DIVISION. 

000248 CONFIGURATION SECTION. 

0002508 SOURCE-COMPUTER. IBM-PC. 

880260 OBJECT-COMPUTER. IBM-PC. 

0002708 SPECIAL-NAMES. 

800280 DECIMAL-POINT IS COMMA, 

888290 CONSOLE IS CRT. 


WILBTTELDE EEE 22 22 22 2 2 2 222 227202 2202 2 202 2 2127272727272 727272727272 72727.27,272 7272727272 72702722 7272202727202 72727 


0208310 DATA DIVISION. 


000328 

0800330 WORKING-STORAGE SECTION. 

0800340 

200358 di ENDE-MELDUNG PIC X(15) VALUE 
808368 "Ende (J/N) ===>". 

088378 

200388 O1 ENDE-KENNZEICHEN PIC X VALUE SPACE. 
0003908 88 ENDE | VALUE "J” ”j”. 
200408 

BRB410 O1 ZAHL PIC 2Z(84). 
08420 Bi ZAHL2 PIC Z(84). 
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000430 di SUMME PIC Z(84). 

000440 

00045 0:33 BB BR BRRRRBRBREBIBRIENEIBEEIEEIBIIENSEIEIEIEIEIEIE NE HEHEIEHIEIEIEIEIEN EN 
0004680%* BINÄRE DATENFELDER 

2008478 1 RECHEN-FELDER. 


200480 85 B-ZAHLI PIC S9(84) COMP. 
0800498 85 B-ZAHL2 PIC S9(B84) COMP. 
800508 05 B-SUMME PIC S9(04) COMP. 


B805 1 Dt 3 3 EEE EEE III III IIIIIIIIIIEIEIEIEIEIE III IER: 


200528 PROCEDURE DIVISION. 

2080530 PROGRAMM-STEUERUNG SECTION. 

208548 PR-1008. 

008558 PERFORM VERARBEITUNG! THRU VERARBEITUNG2 
000560 UNTIL ENDE. 

008578 PR-9999. 

280580 EXIT PROGRAM. 

200598 STOP RUN. 

IL TEE LEE 2 2 5 22 2 22 22 227220272 272 272 22 2 2 2727227212722 7272727272722 20272 2720272 027.2 0202121202022 2202.20272 70 
000610 VERARBEITUNG! SECTION. 

0006208 VER-1008. 


200630 

000640 DISPLAY SPACE UPON CRT. 

2800650 DISPLAY "TESTEN DER RTS.BIN-SCHNITTSTELLE” AT 8128. 
800669 DISPLAY "GEBEN SIE 2 ZAHLEN EIN” AT 8501. 
880678 

800680 DISPLAY "ADDIEREN:” AT 8891. 

000698 

000700 ACCEPT ZAHLI AT 1818. 

288710 DISPLAY "+” AT 1016. 

200728 ACCEPT ZAHL2 AT 1818. 

200738 MOVE ZAHLI TO B-ZAHLI. 

080748 MOVE ZAHL2 TO B-ZAHL2. 

200758 

800769 CALL X”81” USING B-ZAHL1, B-ZAHL2, B-SUMME. 
200778 

000789 DISPLAY "=" AT 18024. 

200798 

000889 MOVE B-SUMME TO SUMME. 

B00810 

800820 DISPLAY SUMME AT 1826. 

200830 


000849 VER-9999. 

000858 EXIT. 

DDDECDRRR RR EH EHER EEE EKEKEKEK IHRER RE 
0008708 VERARBEITUNG2 SECTION. 

BRdBBd VER-1080. 

280890 
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280980 DISPLAY "SUBTRAHIEREN:” AT 1291. 


280918 
200920 ACCEPT ZAHLI AT 1416. 
0880938 DISPLAY "-"” AT 1416. 


200940 ACCEPT ZAHL2 AT 1418. 

800958 MOVE ZAHLI TO B-ZAHLI. 

880968 MOVE ZAHL2 TO B-ZAHL2. 

288970 

200988 CALL X”82” USING B-ZAHLI, B-ZAHL2, B-SUMME. 
2800998 

201088 DISPLAY "=" AT 1424. 

801018 MOVE B-SUMME TO SUMME. 

801820 DISPLAY SUMME AT 1426. 

291030 

001040 DISPLAY ENDE-MELDUNG AT 2401. 
2881050 ACCEPT ENDE-KENNZEICHEN AT 2416. 
BB1068 VER-9999. 

2881070 EXIT. 


ab hä 2 5.2.2020 2.2.2 202.2. 2.202022 2.202.222 02.202 2.202.222 2.2.2727 2.2.2 .2.2.2.2 2.2.2.2 22.2.2020 


Dieses Assembler-Programm demonstriert den Aufbau 
einer RTS.BIN-Datei, die in der Anwendung mittels 
einer BUILD-Funktion mitgebunden werden kann. 


Der Vorteil der RTS.BIN-Datei liegt darin, mehrere 
Eingangstellen im Assembler-Programn zu definieren. 
Jede Eingangsstelle kann vom COBOL-Programnm aus mit 
einer Nummer aufgerufen werden: 


xx KW KK KK TK—TK— TKÖKUU NK 


x KK KK KK TKOKKUN. 


CALL X”81” USING ..... 


%* 


Die Subroutine X”81” berechnet: PARM3 =PARM2 + PARMI1* 


;* Die Subroutine X”d2” berechnet: PARM3 =PARM2 - PARMI* 


.% % 
’ 


Eh E 3 2 2 2 2.2.2.2. 2.2.2.2.2 8.2.2.2 2.2 2.2.2.2 02.2.2222 2.2.2.2 2022.22 2022.22 02.22.2202 ,2,270 


PARMETER STRUC ; Dummystruktur 
BP_ALT DW ? 
RET_ADR DW ? 
PARM3 DW ? 
PARM2 DW ? 
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PARMI 
PARMETER 
CSEG 


RTS: 


ADDIERE 


ADDIERE 


SUBTRAHIERE 


DW 
ENDS 


SEGMENT 


ASSUME CS:CSEG,DS:CSEG 


ORG 


DB 
DW 
DW 
DW 


PROC 
PUSH 
MOV 
PUSH 
PUSH 
PUSHF 


MOV 
MOV 
MOV 
ADD 
MOV 
MOV 


POPF 
POP 
POP 
POP 
RET 
ENDP 


PROC 
PUSH 
MOV 
PUSH 
PUSH 
PUSHF 


MOV 
MOV 
MOV 
SUB 
MOV 
MOV 


108H 


2 

1) 

ADDIERE 
SUBTRAHIERE 


NEAR 
BP 
BP,SP 
AX 

BX 


BX,[BP]J.PARMI 
AX,[BX] 
BX,[BP].PARM2 
AX,[BX] 
BX,[BP]J.PARM3 
[BX],AX 


BX 
AX 
BP 


NEAR 
BP 
BP,SP 
AX 

BX 


BX,[BP].PARMI 
AX,[BX] 
BX,[BP].PARM2 
AX,[BX] 
BX,[BP].PARM3 
LBX],AX 


: Adresse der 1. 
: Adresse der 2. Subroutine 
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: Startadresse 
: Anzahl der Subroutinen 


: Erste Subroutine 


; PARMI-Adresse nach BX 
; PARMI nach AX 

: PARM2-Adresse nach BX 
; Addiere PARM2 auf AX 
; PARM3-Adresse nach BX 
: Summe nach PARM3 


; PARMI-Adresse nach BX 
: PARMI nach AX 

;s PARM2-Adresse nach BX 
; Subtrahiere PARM2 von 
; PARM3-Adresse nach BX 
; Summe nach PARM3 


Subroutine 


AX 
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POPF 

POP BX 
POP AX 
POP BP 
RET 


SUBTRAHIERE ENDP 


CSEG ENDS 
END RTS 


| GEBEN SIE 2 ZAHLEN EIN 


ji ADDIEREN: 


| 4000 + 300 
| SUBTRAHIEREN: 

4000 - 300 
Ende (J/N) ===> 


Dialog-Testlauf (PGM31) 
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PGM32: Integration des Directory-Menüs in der 
eigenen Anwendung 


BRDdKA1d IDENTIFICATION DIVISION. 


000020 PROGRAM-ID. PGM32. 
200030 AUTHOR. R. HABIB. 
000048 DATE-WRITTEN. 81-81-1987. 


0200058 DATE-COMPILED. B1-Apr-87 19:39. 


WOIDETEEE EEE 28 20202027872 202727127272 72 1272702720202 727272727272 727 272 2727270272 02.2 727120202022 202027202 027202 020220202202 020273 
WILDEN EEE 20202 2027272727272 7272727127272 2127212127272 72727272722 0202020212 12727272 7202020272 .2727202 202027202 20202 02.2.22 7: 


DDDDEN*% *% 
000090** PROGRAMMFUNKTION: *r 
DD0100** xx 
BAD 10%" *% 
B00120** DAS PROGRAMM DEMONSTRIERT DEN UMGANG MIT DER ROUTINE *% 
B00130** "S:NAME”. SIE KANN FÜR DIE AUFLISTUNG VON DATEIEN BESTIMMTER ** 
B00140** TYPEN BENUTZT WERDEN. *% 
DDH150*% *% 


B00160** DABEI KANN EINE DER ANGEZEIGTEN DATEIEN GEWÄHLT WERDEN, D.H. ** 
000170%*%* DER DATEINAME KANN MIT HILFE DER RETURN-TASTE IN EINEM FELD ** 


000180%*%* ABGESPEICHERT WERDEN. *% 
DOD1IN** *% 
000200** DEMONSTRATIONSHALBER WIRD DIE GEWÄHLTE DATEI MIT DEM TYPE- ** 
000210%** KOMMANDO ANGEZEIGT. *% 
000220%** *% 


"DIYST ELLE ESS 2020202 0802727272022 02702727202 0227270272712 72 02 27272727212 721272727212 2227272727272 722720202 020202 7272121272 720270 
DOD 240 KREIEREN KK RR 


2068250 ENVIRONMENT DIVISION. 
0800260 CONFIGURATION SECTION. 
B00270 SOURCE-COMPUTER. IBM-PC. 
008288 OBJECT-COMPUTER. IBM-PC. 
208290 SPECIAL-NAMES. 

200309 DECIMAL-POINT IS COMMA, 
200318 CONSOLE IS CRT. 


000 321 EEE EEEIEEEUUEEKRFRIE HK RE 


000338 DATA DIVISION. 


000348 

8080358 WORKING-STORAGE SECTION. 

000360 

000370 81 ENDE-MELDUNG PIC X(15) VALUE 

000388 "Ende (J/N) ===>", 

0008398 Di ENDE-KENNZEICHEN PIC X VALUE SPACE. 

Ö004Bd 88 ENDE VALUE "I" "5". 

809419: 3 0 BREITEREN 
000428 01 ERGEBNIS PIC 99 COMP. 
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200430 
000448 B1 FUNKTION-2 PIC 99 COMP VALUE 2. 
000458 81 FUNKTION-3 PIC 99 COMP VALUE 3. 
000468 81 FUNKTION-35 PIC 99 COMP VALUE 35. 
200478 


000480 B1 PARAMETER. 
000490 085 KOMMANDOLAENGE PIC 99 COMP. 


800508 25 KOMMANDO PIC X(88). 

200510 

D08520 Bi MWERT-P PIC 99 COMP VALUE ®. 

8805 3 0:9 E OSB BBRRRRBREIBIBIBBRBEBBBIBIBBBBIGBIBBBEBRIBEBBBSEEBIBBEEIGSGREBEBIEEESREN 
200540 81 FUNKTION PIC 9(82) COMP VALUE 2. 

8088558 81 DATEI-NAME PIC X(8). 

000560 81 DATEI-ERNW PIC X(3). 


8005 7 BB 3 HB III HIHI NER 


B00580 PROCEDURE DIVISION. 

0880590 PROGRAMM-STEUERUNG SECTION. 

Bade PR-1000. 

B886 10 PERFORM VERARBEITUNG UNTIL ENDE. 

0006208 PR-9999. 

2820630 EXIT PROGRAM. 

000648 STOP RUN. 

00965 9:33 3333 RRBRERRBRBEEIRIBRBEIEBRIBBEIBERIBBEBEBEISREBREEBBBREBIBEREIRIEIEN 
000660 VERARBEITUNG SECTION. 

BOn67d VER-100B. 

00680 

800698 DISPLAY SPACE UPON CRT. 

009700 

2800718 DISPLAY ">>3>>>>>> TESTEN DES DIRECTORY-PROGRAMMS <<<<<c<<” 
2000720 AT B110. 

200738 

080740 DISPLAY "DATEI-ERWEITERUNG ---> ” AT 1801. 

280759 ACCEPT DATEI-ERK AT 1030. 


800769 

280770 MOVE 2 TO FUNKTION. 

200788 CALL "S:NAME” USING FUNKTION DATEI-NAME DATEI-ERN. 
200798 

080889 IF FUNKTION = 1 

20810 

200828 MOVE SPACE TO KOMMANDO 

200830 

200848 STRING "TYPE” DELIMITED BY SPACE 

200858 ”»  _DELIMITED BY SIZE 

000868 DATEI-NAME ”.” DATEI-ERW DELIMITED BY SPACE 
800879 INTO KOMMANDO 

B00880 

200899 MOVE 17 TO KOMMANDOLAENGE 
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280980 CALL X”"91” USING ERGEBNIS FUNKTION-2 PARAMETER 
D28918 CALL X”"91” USING ERGEBNIS FUNKTION-35 WERT-ß. 
200920 DISPLAY SPACE UPON CRT. 

2800939 


8008940 DISPLAY ENDE-MELDUNG AT 2401. 
200950 ACCEPT ENDE-KENNZEICHEN AT 2416. 
BR0I68 VER-9999. 
2800978 EXIT. 


| DATEI-ERWEITERUNG ---> 


Directory-C : ————— nn  -Ins-Caps-Nun-Scroll 
Fi=help F2=dir F3=chdir F9=drv 
Escape 


Dialog-Testlauf (PGM32) 
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PGM33: Beispiel für das Indexprogramm 


088018 
800828 
280030 
200040 
020050 


IDENTIFICATION DIVISION. 


PROGRAM-ID. PGM33. 
AUTHOR. R. HABIB/PROFESSIONAL-COBOL. 
DATE-WRITTEN. 81-81-1987. 


DATE-COMPILED. B1-Apr-87 19:39, 


WWELIVEELEEE ES 2 20202020272 027202720272 2727272 272720272 027202727 2727272727272 27272727 202712 272 27202212 202.2 22.220222 2.277 


WEILE E ESS E 2220202 2020202720272 272 272727272272 2727272727272 72712 272 27272727 2027020272022 022 02202/20212 222.2 2120277 


VLLETEE x 
O00090** PROGRAMMFUNKTION: xx 
YLLAL TEE *% 


BRB110** DIESES PROGRAMM DEMONSTRIERT DEN AUFBAU EINES INDEXPROGRAMMS.** 
000120%** DAS INDEXPROGRAMM WIRD VON FORMS AUS GENERIERT UND KANN VER- *% 
000130%** WENDET WERDEN, UM INDEX-SEQUENTIELLE DATEIEN ZU ERSTELLEN xx 
BRD140** ODER ZU AKTUALISIEREN. an 
DOB150** xx 


VEIT EZSE EEE 2 202 22 202722202 2722 22 2 22 2 2722 202 2 2 20272272702 2027272127202 1272121202 020202 0202720270202 72,2 02727027 


VETRWIEEEE SS 2 2 20202 2 27202027202 27202027202 027270202 727202 727272020272 272,2 2027202720202 12.2 20202 027202022 202.2 2202 02,2.20 


D80188 
080198 
200200 
888218 
000239 
200240 
000259 
200260 
808278 
000289 
208298 
209308 
D0R0318 
000320 
000330 
000348 
200350 
000368 
800379 
008389 
000398 
000408 
808410 
800420 
800438 
000449 
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ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 


SOURGE-COMPUTER. IBM-PC. 
OBJECT-COMPUTER. IBM-PC. 
SPECIAL-NAMES. 


CURSOR IS CURSOR-POSITION. 
INPUT-OUTPUT SECTION. 
FILE-CONTROL. 
SELECT INDEXED-FILE ASSIGN FILE-ID 
ORGANIZATION INDEXED 
ACCESS DYNAMIC 
RECORD KEY RECORD-KEY 
STATUS IS FILE-STATUS. 
DATA DIVISION. 
FILE SECTION. 
FD INDEXED-FILE. 
81 INDEXED-RECORD. 
03 pgm33-01-1013 PIC X(8038). 
83 pgn33-81-1213 PIC X(0838). 
d3 pgn33-01-1408 PIC 9(0084). 
03 pgn33-81-1423 PIC X(803B). 
03 pgm33-81-1613 PIC X(8815). 
03 pgn33-01-1813 PIC X(8841). 
81 INDEXED-RECORD-2. 
Ö3 RECORD-KEY PIC X(8838). 
03 RECORD-DATA PIC X(8128). 
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000450 WORKING-STORAGE SECTION. 

000460 Bi SAVED-RECORD. 

000470 03 SAVED-KEY PIC X(8838). 

000480 03 SAVED-DATA PIC X(812B). 

0004908 Bi USEFUL-CURSOR-POSITIONS. 

000500 83 START-OF-KEY PIC 9(4) VALUE 1813. 


808518 83 END-OF-KEY PIC 9(4) VALUE 1042. 
000520 83 START-OF-DATA PIC 9(4) VALUE 1213. 
280538 83 END-OF-DATA PIC 9(4) VALUE 1853. 


200548 83 MENU-POSITION PIC 9(4) VALUE 2301. 
0885608 91 pgn33-Qd-ATTR. 


006578 83 FILLER PIC X(8732) VALUE ALL X”63”. 

806580 83 FILLER PIC X(0038) VALUE ALL X”1F”. 

806598 83 FILLER PIC X(8138) VALUE ALL X”03”. 

B00608 83 FILLER PIC X(0030) VALUE ALL X"1F”. 

006618 083 FILLER PIC X(8125) VALUE ALL X”83”. 

000628 83 FILLER PIC X(2004) VALUE ALL X"1F”. 

000638 83 FILLER PIC X(B011) VALUE ALL X”83”. 

000648 83 FILLER PIC X(8030) VALUE ALL X”1F”. 

000658 83 FILLER PIC X(8120) VALUE ALL X”03”. 

BR066B 83 FILLER PIC X(8015) VALUE ALL X”1F”. 

08678 83 FILLER PIC X(8145) VALUE ALL X"83”. 

D00688 83 FILLER PIC X(B041) VALUE ALL X"1F”. 

800698 83 FILLER PIC X(8587) VALUE ALL X”83”. 

BOB7EB 81 pgn33-00 

BRB71D 03 _ pgm33-08-0181 PIC X(B08B) VALUE  m—— 
D00720- "mm nl nn 
8007380 083 _ pgn33-00-0201 PIC X(B081) VALUE "|". 

000748 83 FILLER PIC X(B078). 


808750 83 pgn33-0d-0288 PIC X(B881) VALUE ”|”. 
2808760 03 pgn33-08-0301 PIC X(Q881) VALUE ”|”. 


000770 83 FILLER PIC X(8826). 
000780 03 pgn33-00-08328 PIC X(B018) VALUE "Adressenverwaltung”. 
200790 03 FILLER PIC X(8034). 


D00800 083 _ pgn33-06-0380 PIC X(0801) VALUE "|”. 

TIER) 83 _ pgn33-08-0401 PIC X(0801) VALUE "|". 

B00820 83 FILLER PIC X(8978). 

B00838 03 _pgn33-00-0480 PIC X(BB01) VALUE "|". 

B00840 83 _ pgm33-08-8581 PIC X(D080) VALUE 7 m——— 
BOBBSD- — Hmmm nm 
BOB86L 083 _ pgm33-00-0601 PIC X(BB@1) VALUE "|". 

B0B8 72 83 FILLER PIC X(8078). 

Bodesd B3 _ pgn33-00-0680 PIC X(0801) VALUE ” 
800898 03 _ pgm33-00-0781 PIC X(DBB1) VALUE ” 
Bod90R 83 FILLER PIC X(8078). 

808910 B3 _ pgm33-08-0788 PIC X(B@01) VALUE ”|”. 
808920 83 _pgm33-B0-B881 PIC X(B8d1) VALUE "|". 
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800938 83 FILLER PIC X(0078). 

000940 03 _ pgm33-00-0880 PIC X(8081) VALUE "|". 
008958 03 _ pgm33-00-0981 PIC X(8881) VALUE "|". 
B00968 83 FILLER PIC X(8078). 

000978 03 _ pgn33-08-8980 PIC X(0001) VALUE "|". 
BOn98L 83 _ pgn33-0d-1081 PIC X(0807) VALUE "| Nane:”. 
D00990 83 FILLER PIC X(8072). 

B81000 83 _ pgm33-00-1080 PIC X(8081) VALUE "|". 
Ba1d1E 03 _ pgn33-0d-1181 PIC X(BBR1) VALUE ”|”. 
B81020 83 FILLER PIC X(8078). 

801030 B3 _ pgm33-Qd-1180 PIC X(B801) VALUE "|". 
DO1040 03 _ pgn33-08-1281 PIC X(0809) VALUE "| Strape:”. 
861058 83 FILLER PIC X(8078). 

BB1060 03 _ pgm33-00-1280 PIC X(d081) VALUE "|". 
081078 03 _ pgn33-Q8-1381 PIC X(B8R1) VALUE "|". 
B01080 83 FILLER PIC X(0878). 

801090 083 _ pgm33-08-1380 PIC X(B081) VALUE "|". 
001100 03 _pgm33-80-1401 PIC X(0806) VALUE "| Plz:”. 


BB1118 83 FILLER PIC X(B811). 
B81120 B3 pgn33-08-1418 PIC X(8084) VALUE "Ort:”. 
BR1138 83 FILLER PIC X(8858). 


DO1148 03 pen33-08-1480 PIC X(d881) VALUE "|". 

801150 83 _ pgm33-08-1581 PIC X(8081) VALUE "|". 

BD1168 83 FILLER PIC X(8878). 

001170 83 _ pgm33-08-1580 PIC X(8081) VALUE "|". 

281180 83 pgn33-0d-1601 PIC X(B010) VALUE "| Telefon:”. 
2881198 83 FILLER PIC X(8869). 

201200 D3 pgm33-00-1680 PIC X(B881) VALUE ”|”. 

001218 ß3 pgn33-Qd-1781 PIC X(Bdd1) VALUE "|". 

2881220 03 FILLER PIC X(2078). 

2801230 03 pgn33-00-1788 PIC X(Bddt) VALUE "|". 

001240 03 pgn33-DA-1801 PIC X(8812) VALUE "| Bemerkung:”. 
201258 83 FILLER PIC X(8867). 

281269 83 pgm33-00-1880 PIC X(Bd8d1) VALUE ”|”. 

801278 083 _ pgm33-08-1901 PIC X(8081) VALUE "|". 

201280 83 FILLER PIC X(8878). 

291290 83 pgn33-80-1980 PIC X(B881) VALUE ”|”. 

201308 83 pgn33-08-2801 PIC X(B881) VALUE "|". 


881310 83 FILLER PIC X(8078). 

091320 03 pgn33-00-2080 PIC X(8dd1) VALUE "|". 

801338 03 pgm33-80-2101 PIC X(D880) VALUE " Immun 
801348- a zz ze oe 
881358 91 pgn33-81 REDEF INES pgn33-08 

201360 03 FILLER PIC X(8732). 

081378 03 pgn33-81-1013 PIC X(8038). 

001380 83 FILLER PIC X(8138). 


2891390 83 pgn33-B1-1213 PIC X(80838). 
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B81408 83 FILLER PIC X(8125). 
801418 83 _ pgm33-B1-1408 PIC 9(8084). 
801420 83 FILLER PIC X(8811). 
081438 03 _ pgm33-01-1423 PIC X(8838). 
001448 03 FILLER PIC X(8128). 
001458 03 _ pgm33-01-1613 PIC X(8915). 
B01468 83 FILLER PIC X(8145). 
001478 03 _ pem33-01-1813 PIC X(8941). 
801498 


8815008 Bi DIVIDER-LINE. 
801510 83 DIV-FILE-NAME PIC X(8) VALUE ALL "—”. 


081528 03 FILLER PIC X(4) VALUE ALL "-”. 
001538 03 DIV-STATUS-MSG PIC X(12) VALUE ALL "-”. 
081548 03 FILLER REDEFINES DIV-STATUS-MSG. 

081558 84 FILLER PIC X(7). 

081568 84 DIV-STATUS. 

081578 05 DIV-STATUS-1 PICX. 

081588 05 FILLER PICX. 

081598 05 DIV-STATUS-2 PIC X). 

201608 05 DIV-ST2-999 REDEFINES DIV-STATUS-2 PIC 9(3). 
281610 03 FILLER PIC X(5) VALUE ALL ”—”. 
081620 03 DIV-CRP-MSG PIC X(44) VALUE ALL "-". 
001638 03 FILLER PIC X VALUE ALL ”-”. 
001640 03 DIV-MANUAL-AUTO PIC X(6) VALUE ALL ”-”. 
081658 

BB1660 BI CRP-MSG. 

891678 83 FILLER PIC X(11) VALUE "cur.rec.ptr”. 
281680 03 CRP. 

081690 85 CRP-REL PIC X VALUE ”—”. 
081708 85 CRP-KEY PIC X(32) VALUE ALL ”-”. 
BB1718 

081728 91 MENU-8Q-ATTR. 

081738 23 FILLER PIC X(8082) VALUE ALL X”QF”. 
081748 03 FILLER PIC X(8086) VALUE ALL X”87”. 
081758 03 FILLER PIC X(8dd2) VALUE ALL X”dF”. 
281768 83 FILLER PIC X(8811) VALUE ALL X”Q7”. 
081778 03 FILLER PIC X(8803) VALUE ALL X”öF”. 
081788 03 FILLER PIC X(0084) VALUE ALL X”87”. 
001798 03 FILLER PIC X(0d8d8) VALUE ALL X"09”. 
001808 03 FILLER PIC X(8812) VALUE ALL X”"87”. 
DB1818 03 FILLER PIC X(0083) VALUE ALL X”OF”. 
001828 03 FILLER PIC X(8829) VALUE ALL X”d7"”. 
081830 03 FILLER PIC X(8802) VALUE ALL X"dF”. 
081840 03 FILLER PIC X(8108) VALUE ALL X”07”. 
081858 03 FILLER PIC X(8803) VALUE ALL X"dF”. 
001868 03 FILLER PIC X(8813) VALUE ALL X”d7"”. 
001878 03 FILLER PIC X(2004) VALUE ALL X”OF”. 
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001880 
001890 
01908 
01918 
001928 
801930 
081948 
291958 
201960 
0891978 
001980 
801998 
092000 
082018 
002028 
002030 
002040 
202050 
082068 
202078 
002080 
802098 
0802100 
02118 
002120 
002138 
002140 
802158 
802160 
882178 
802189 
802190 
802208 
002219 
002220 
202230 
002240 
002258 
202260 
002278 
002280 
092298 
002300 
202318 
082320 
802338 
002340 
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21 


91 


21 


03 
03 
03 
83 
03 
83 
D3 
03 
83 
03 
03 
03 
03 
03 
03 
03 
03 
83 
03 
03 
83 
03 
83 
03 


03 


FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 


PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 


X(8881) 
X(0094) 
X(0887) 
X(0083) 
X(8815) 
X(0882) 
X(0886) 
X(0882) 
X(8008) 
X(0082) 
X(8808) 
X(0882) 
X(8808) 
X(0882) 
X(8818) 
X(0882) 
X(8828) 
X(08882) 
X(0807) 
X(0082) 
X(0809) 
X(88982) 
X(8888) 
X(0883) 
X(8813) 
X(8004) 
X(8881) 
X(0084) 
X(8087) 
X(0803) 
X(0286) 
X(8881) 
X(8891) 
X(0881) 
X(0846) 


FILLER REDEFINES MENU-SQd-ATTR. 


83 OPEN-MENU-ATTR 
83 AUTO-MENU-ATTR 


PIC 
PIC 


X(168). 
X(168). 


083 MANUAL-MENU-ATTR PIC X(168). 


83 QUERY-DELETE-ATTR PIC X(249). 


FILLER REDEFINES MENU-Bd-ATTR. 


03 


83 FILE-NAME-ATTR 


23 


FILLER 


FILLER 


PIC 
PIC 
PIC 


X(188). 
X(8). 
X(364). 


83 NORMAL-ATTR-LINE PIC X(89). 


MENU-89 


VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 


ALL 
ALL 
ALL 
ALL 
ALL 
ALL 
ALL 
ALL 
ALL 
ALL 
ALL 
ALL 
ALL 
ALL 
ALL 
ALL 
ALL 
ALL 
ALL 
ALL 
ALL 
ALL 
ALL 
ALL 
ALL 
ALL 
ALL 
ALL 
ALL 
ALL 
ALL 
ALL 
ALL 
ALL 
ALL 


x”07”. 
X”"OF”. 
x”o7”. 
X”ör”. 
x”"07”. 
X"OF”. 
x"B7”. 
X”OF”. 
x”o7”. 
X”"DdF”. 
x”07”. 
X”dF”. 
x"07”. 
X”"ör”. 
X"D7". 
X”ör”. 
x”07”, 
X”ör”. 
x”07”. 
X”öF”. 
X”07”. 
X”OF”. 
x”o7”. 
X”Or”. 
x”07”. 
X"OF”. 
x”07". 
X”"ÖF”. 
x”o7”. 
X"OF”. 
x”"07”. 
X”dF”. 
x”o7”. 
X”OF”. 
x"07”. 
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202350 03 MENU-88-8181 PIC X(8036) VALUE "Fi=help F2=directory E 
002368- "scape=stop-run”. 

002378 83 FILLER PIC X(8944). 

202380 B3 MENU-08-8281 PIC X(0827) VALUE "To OPEN I-O enter file 
802398- ”-name”. 


802488 83 FILLER PIC X(B8818). 

002410 03 MENU-08-0238 PIC X(8014) VALUE "then press 4-1". 
002420 83 FILLER PIC X(8829). 

002430 03 MENU-88-8381 PIC X(8887) VALUE ”"Fi=help”. 

002440 83 FILLER PIC X(8183). 

002458 83 MENU-82-0431 PIC X(8858) VALUE "F1@=manual/auto Ctr1+H 
002468- "ome=clear Escape=close-file ”. 

202470 d3 MENU-88-08581 PIC X(8062) VALUE "Fi=help F2=start= F3=s 
002480- "tart2 F4=start> F5=eread-key F6=read-next”. 

002490 83 FILLER PIC X(B8818). 

202500 03 MENU-B8-B6D81 PIC X(8888) VALUE "F7=write F8=srewrite F9 
002510- "=delete Fiß=manual/auto Ctrl+Home=clear Escape=close-file ”. 
002528 81 FILE-NAME-TEMPLATE REDEFINES MENU-ßB. 

002538 83 FILLER PIC X(188). 

002540 83 FILE-NAME PIC X(8). 

0082550 81 FILLER REDEFINES MENU-GB. 

002560 83 OPEN-MENU PIC X(168). 

802570 03 AUTO-MENU PIC X(168). 

002580 83 MANUAL-MENU PIC X(168). 

002590 

0026088 01 RESULT-LINE. 

002619 83 RES-VERB PIC X(12). 

002620 03 RES-COMMENT. 

002630 05 RES-VERB-2 PIC X(12). 

002640 85 RES-COMMENT-2 PIC X(48). 

002650 

002660 Bi VERB-TABLE. 

002670 03 HELP-VERB PIC X(10) VALUE "help ”, 
002680 03 START-EQUAL-VERB PIC X(10) VALUE "starte :”. 
002690 83 START-NOT-LESS-VERB 

002700 PIC X(10) VALUE "start? :”. 
082710 83 START-GREATER-VERB 

002728 PIC X(18) VALUE "start> :”. 
202730 03 READ-KEY-VERB PIC X(10) VALUE ”"read-key :”. 
002748 03 READ-NEXT-VERB PIC X(18) VALUE "read-next:”. 
2027580 03 WRITE-VERB PIC X(18) VALUE "write ”, 
802760 03 REWRITE-VERB PIC X(18) VALUE "rewrite :”. 
002778 03 DELETE-VERB PIC X(18) VALUE "delete ı», 
002780 83 FILLER PIC X(28) VALUE SPACES. 

002790 03 CLOSE-VERB PIC X(18) VALUE "close ”, 
002809 83 FILLER PIC X(18) VALUE SPACES. 


02810 di FILLER REDEFINES VERB-TABLE. 
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002820 
002838 
002849 91 
882858 
002860 
002878 
002880- 
802890 
882988- 
882918 
802928- 
002938 
002948- 
802958 
002968 
802978- 
002980 
802998 
803080 
B83818- 
003828 
003930 
803048- 
803050 
203068- 
203078 
B03080- 
003098 
203108- 
003119 
0083120- 
003130 
003148- 
803158 
083168- 
2893170 
B83180- 
803198 
003208- 
093218 
003228- 
003238 01 
083248 
003258 
803268 
003278 
003280 
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83 VERB PIC X(18) 


COMMENT-88 


03 
03 
03 


COMMENT-288-8181 PIC X(0865) 
COMMENT-88-8281 PIC X(8865) 
COMMENT-88-8381 PIC X(8065) 


"nce Error”. 


03 


COMMENT-88-0481 PIC X(8065) 


"cate Key”. 


03 


COMMENT-88-8581 PIC X(2965) 


»cord Found”. 


03 


COMMENT-ß8-0681 PIC X(2065) 


"ary Violation”. 


03 
03 
B3 
03 
03 
"or 
03 
03 


COMMENT-88-8781 PIC X(8865) 
COMMENT-Bd-B881 PIC X(8865) 


COMMENT-88-0981 PIC X(8865) 
COMMENT-8ß-1881 PIC X(8865) 
COMMENT-Bß-1181 PIC X(0865) 
input a non-existent file”. 
COMMENT-ß8-1281 PIC X(80965) 
COMMENT-08-1381 PIC X(8865) 


"ile”. 


03 


COMMENT-88-1481 PIC X(8065) 


"missing for indexed file”. 


D3 


COMMENT-88-1581 PIC X(82865) 


"verflow”. 


03 


"key data error (different from 


03 


"ady open, or closed with lock”. 


03 


COMMENT-88-1681 PIC X(0865) 
COMMENT-88-1781 PIC X(0865) 


COMMENT-B8-1881 PIC X(08865) 


»"unopened indexed file”. 


B3 


COMMENT-88-1981 PIC X(8065) 


OCCURS 13. 


VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 


VALUE 
VALUE 


VALUE 
VALUE 
VALUE 


VALUE 
VALUE 


VALUE 


VALUE 


"4/9 
"1/8 
"2/1 
"2/2 
"2/3 
"2/4 


"3/0 


Successful”. 

At End”. 

Invalid Key/Seque 
Invalid Key/Dupli 
Invalid Key/No Re 
Invalid Key/Bound 


Permanent Error”. 


"9/Qß4Illegal file-name 


"9/Rd7TDisk full”. 
"9/889Directory full”. 
"9/B13Attempt to open f 


"9/924Disk error”. 
"9/ß41Corrupt indexed f 


»9/043File information 


"9/847Index structure 0 


VALUE "9/139Record length or 


creation)”. 


VALUE "9/141Indexed file alre 


VALUE "9/142Attempt to close 


VALUE ”9/146No current record 
” (for sequential read in dynamic mode)”. 
03 COMMENT-BB-2891 PIC X(8065) VALUE "9/147File not open or 
"wrong open mode for read/start”. 
03 COMMENT-88-2101 PIC X(0065) VALUE ”"9/148File not open or 
"wrong open mode for write”. 
03 COMMENT-88-2281 PIC X(8865) VALUE ”9/149File not open or 
"wrong open mode for rewrite/delete”. 
COMMENT-TABLE REDEFINES COMMENT-8ß. 

83 COMMENT-ENTRY OCCURS 22 
ASCENDING KEY IS COMMENT-STATUS INDEXED BY COMMENT-INDEX. 
85 COMMENT-STATUS PIC X(5). 
05 COMMENT PIC X(6ß). 


003290 
203308 
003310 
803320 
003338 
203340 
203358 
803360 
203378 
203380 
803398 
003408 
003418 
003420 
003430 
003440 
803458 
003468 
003478 
003488 
203498 
0803509 
0083510 
203520 
003538 
003540 
203550 
003568 
203578 
203580 
803590 
003600 
003610 
003620 
003630 
003640 
003658 
003668 
003678 
003689 
003690 
003788 
203710 
003720 
803730 
003748 
203758 


1 


B1 
21 


21 


21 


21 


B1 


21 
21 


81 
91 
1 
81 
91 


FUNCTION-TABLE. 


83 FUNCTION-NUMBER 


88 HELP-KEY 
88 DIR-KEY 
88 MODE-KEY 
88 CLEAR-KEY 
88 ESCAPE-KEY 
88 ENTER-KEY 


83 FILLER PIC X(15) 
83 FILLER PIC X(15) 


83 FILLER PIC X(7) 
03 FILLER PIC X 


FORM-LENGTH 
FORM-PARAMS. 

83 10-LENGTH 

83 SCREEN-OFFSET 
03 BUFFER-OFFSET 
DIVIDER-PARAMS. 
83 DIVIDER-LENGTH 
03 DIVIDER-OFFSET 
83 FILLER 
MENU-PARAMS. 

03 MENU-LENGTH 

83 MENU-OFFSET 

83 FILLER 
RESULT-PARAMS. 

83 RESULT-LENGTH 
83 RESULT-OFFSET 
83 FILLER 


PREDISPLAY-PARAMS. 


03 PREDISPLAY-CONTROL PIC 99 COMP. 


83 FILLER 
83 FILLER 
083 FILLER 


CURSOR-POSITION 


PIC 99 COMP. 
VALUE IS 1. 

VALUE IS 2. 

VALUE IS 18. 

VALUE ‚IS 11. 

VALUE IS 12. 

VALUE IS 13. 

VALUE X”02003B02003C02003DO2003ED2083F”. 
VALUE X”020040020041020042020043020044”. 
VALUE X”020077011BB10D”. 

VALUE X”dß”. 


PIC 9(4) COMP. 


FILLER REDEFINES CURSOR-POSITION. 


83 CURSOR-LINE 
083 CURSOR-COLUMN 


READ-CHAR 
SCREEN-CONTROL 
ACGEPT-CONTROL 
FUNCTION-CONTROL 
SCREEN-IO 
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PIC 9(4) COMP. 

PIC 9(4) COMP VALUE 1. 
PIC 9(4) COMP VALUE 1. 
PIC 9(4) COMP VALUE 88. 
PIC 9(4) COMP VALUE 1681. 
PIC 9(4) COMP VALUE 1. 
PIC 9(4) COMP VALUE 160. 
PIC 9(4) COMP VALUE 1761. 
PIC 9(4) COMP VALUE 1. 
PIC 9(4) COMP VALUE 72. 
PIC 9(4) COMP VALUE 1921. 
PIC 9(4) COMP VALUE 1. 
PICX VALUE ”2”. 
PIC 99 COMP VALUE 76. 
PIC 99 COMP VALUE 1. 
PIC 9(4) VALUE 8191. 

PIC 99. 

PIC 99. 

PICX VALUE X”83”. 
PICX VALUE X”A7?”. 
PICX VALUE X”AF”. 
PICX VALUE X”Bß”. 
PICX VALUE X”B7”. 
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803760 Bi ALARM PICX VALUE X”E5”. 
B03770 81 ENABLE-FUNCTIONS PIC 99 COMP VALUE 8. 
8037808 B1 PREDISPLAY-OFF REDEFINES ENABLE-FUNCTIONS PIC 99 COMP. 


003798 Bi MWRITE-TEXT PIC 99 COMP VALUE 1. 
DR3800 D1 ACCEPT-CONTROL-FLAG REDEFINES WRITE-TEXT PIC 99 COMP. 
BB3810 Bi SHOW-FILES PIC 99 COMP VALUE 2. 
003828 Di MWRITE-ATTR PIC 99 COMP VALUE 3. 


803830 01 PREDISPLAY-ON REDEFINES WRITE-ATTR PIC 99 COMP. 
803848 Bi GET-SYSTEM-ATTR PIC 99 COMP VALUE 29. 


003858 

003860 DI SYSTEM-ATTR-ARRAY. 

003878 83 FILLER PIC X(2). 

003880 83 NORMAL-ATTR PICX. 

203890 83 HILITE-ATTR PICX. 

203908 83 FILLER PICX. 

803918 83 HIUNDER-ATTR PICX. 

203920 83 FILLER PIC X(18). 

0803930 

00239408 81 ORIG-NORMAL-ATTR PICX VALUE X”07”. 
883958 81 ORIG-HILITE-ATTR PIC X VALUE X”OF”. 
2083968 

0083978 81 FIRST-TIME-INDIC PICX VALUE ”Y”. 
203988 88 FIRST-TIME-IN VALUE ”Y”. 
803998 81 MANUAL-AUTOMATIC PICX VALUE ”A”. 
204008 88 AUTOMATIC-MODE VALUE ”A”. 
D04018 88 MANUAL-MODE VALUE "M”. 
204028 Bi OPEN-INDIC PICX VALUE ”"N”. 
004038 88 FILE-CLOSED VALUE ”N”. 
004040 88 FILE-OPEN VALUE ”Y”. 
004058 Bi KEY-CHANGED-INDIC PICX VALUE ”N”. 
004060 88 KEY-CHANGED VALUE ”Y”. 
004078 81 DATA-CHANGED-INDIC PIC X VALUE ”N”. 
004080 88 DATA-CHANGED VALUE ”Y”. 
004098 81 Y-OR-N PICX VALUE ”N”. 
004100 88 YES VALUES ”"Y” ”y”. 
DD4110 88 ANSWER-1S-NO VALUES ”N” ”"n". 
084120 88 YES-OR-NO VALUES "Y” "y” N” "n”. 
804130 88 EXTENDED-CODE VALUE LOW-VALUE. 
004140 

B04158 81 DIRECTORY PIC X(6) VALUE ”S:NAME”. 
004168 Bi HELP PIC X(6) VALUE ”"S:HELP”. 
0804178 

Bd4180 Bi HELP-NO PIC 99. 

804198 

04200 81 DAT-EXT PIC X(3) VALUE ”DAT”. 
004210 


084228 081 FILE-STATUS. 


9-174 


Demonstrationsprogramme 


004230 88 SUCCESSFUL VALUE ZERO. 

004240 83 STATUS-1 PICX. 

004250 83 STATUS-2 PICX. 

084260 81 BINARY-FIELD. 

804278 83 FILLER PICX VALUE LOW-VALUE. 
004289 83 BINARY-CHAR PICX. 

084290 Bi BINARY-STATUS-2 REDEFINES BINARY-FIELD PIC 9(4) COMP. 
004308/ 

204310 

004328 PROCEDURE DIVISION. 

0043408 START-UP. 

004358 DISPLAY SPACE UPON CRT. 

004369 IF FIRST-TIME-IN PERFORM INITIALISE-MENU-ATTRIBUTES. 
004378 CALL FUNCTION-CONTROL USING ENABLE-FUNCTIONS FUNCTION-TABLE. 
004380 MOVE PREDISPLAY-OFF TO PREDISPLAY-CONTROL. 

004390 CALL ACCEPT-CONTROL USING ACCEPT-CONTROL-FLAG 

004400 PREDISPLAY-PARAMS. 

004410 PERFORM DISPLAY-FORM. 

004420 ADD SCREEN-OFFSET FORM-LENGTH GIVING DIVIDER-OFFSET. 
804438 ADD DIVIDER-OFFSET DIVIDER-LENGTH GIVING MENU-OFFSET. 
004440 ADD MENU-OFFSET MENU-LENGTH GIVING RESULT-OFFSET. 
004450 MOVE SPACE TO INDEXED-RECORD. 

004460 PERFORM SET-UP-SCREEN. 

004478 PERFORM SET-UP-RECORD. 

004480 PERFORM SAVE-RECORD. 

004490 

004500 ACCEPT-FILE-NAME. 

004519 IF FILE-NAME = SPACE PERFORM SET-UP-DEFAULT-FILE-NAME. 
004529 MOVE ALL "-"” TO DIV-FILE-NAME DIV-CRP-MSG DIV-MANUAL-AUTO. 
004530 STRING FILE-NAME DELIMITED BY SPACE INTO DIV-FILE-NAME. 
004540 PERFORM WRITE-DIVIDER-LINE. 

804550 PERFORM WRITE-OPEN-MENU. 

004568 PERFORM WRITE-RESULT-LINE. 

004578 ACCEPT FILE-NAME-TEMPLATE AT MENU-POSITION. 

004589 IF HELP-KEY GO TO CALL-HELP. 

004598 IF DIR-KEY GO TO CALL-DIRECTORY. 

204609 MOVE SPACE TO RESULT-LINE. 

004618 IF FILE-NAME = SPACE 

204620 MOVE ALL "-” TO DIV-STATUS-MSG 

004630 MOVE B1d1 TO CURSOR-POSITION 

004640 GO TO ACCEPT-FILE-NAME. 

004650 IF ESCAPE-KEY GO TO END-OF-PROGRAM. 

004660 PERFORM WRITE-RESULT-LINE. 

004678 IF ENTER-KEY GO TO OPEN-IO. 

004689 CALL ALARM. 

004690 GO TO ACCEPT-FILE-NAME. 

084788 
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Bd4718 OPEN-IO. 


004728 
004738 
004740 
004758 
004768 
004770 
204788 
084798 
204800 
004810 
204820 
004830 
DU4840 
004850 
004860 
004878 
004880 
004890 
004908 
004918 
004920 
004938 
204940 
204959 
804960 
8084970 
004980 
004998 
805000 
085010 
005020 
205030 
205040 
885058 
005060 
205078 
805080 
805090 
205100 
805119 
005129 
005130 
085140 
805150 
205168 
005178 
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MOVE ALL "-” TO DIV-FILE-NAME. 


STRING FILE-NAME DELIMITED BY SPACE INTO DIV-FILE-NAME. 


PERFORM WRITE-DIVIDER-LINE. 
MOVE SPACE TO FILE-ID. 
STRING FILE-NAME DELIMITED BY SPACE 


”." DAT-EXT DELIMITED BY SIZE INTO FILE-ID. 


MOVE "N” TO OPEN-INDIC. 

OPEN 1-0 INDEXED-FILE. 

IF NOT SUCCESSFUL MOVE ”"open-i-o :” TO RESULT-LINE 
PERFORM CRP-UNDEFINED 
GO TO REPORT-STATUS. 

MOVE ”Y” TO OPEN-INDIC. 

PERFORM CRP-START-OF-FILE. 

PERFORM CLEAR-RECORD-AREA. 

PERFORM WRITE-DIVIDER-LINE. 


DISPLAY-MENU. 


IF MANUAL-MODE 
MOVE "Manual” TO DIV-MANUAL-AUTO 
PERFORM WRITE-MANUAL-MENU 
ELSE 
MOVE "Auto—” TO DIV-MANUAL-AUTO 
MOVE ALL "-” TO DIV-STATUS-MSG DIV-CRP-MSG 
PERFORM WRITE-AUTO-MENU. 


ACCEPT-FROM-SCREEN. 


PERFORM SET-UP-SCREEN THRU DISPLAY-RECORD. 
IF MANUAL-MODE MOVE CRP-MSG TO DIV-CRP-MSG. 
PERFORM WRITE-DIVIDER-LINE. 

PERFORM WRITE-RESULT-LINE. 

PERFORM ACCEPT-RECORD THRU SET-UP-RECORD. 
IF FUNCTION-NUMBER = 8 MOVE 13 TO FUNCTION-NUMBER. 
IF AUTOMATIC-MODE GO TO AUTOMATIC-OPERATION. 


PROCESS-FUNCTION. 


IF NOT HELP-KEY 
MOVE VERB (FUNCTION-NUMBER) TO RESULT-LINE 
PERFORM WRITE-RESULT-LINE. 
GO TO 
CALL-HELP 
START-EQUAL 
START-NOT-LESS-THAN 
START-GREATER-THAN 
READ-KEY-RECORD 
READ-NEXT-RECORD 
WRITE-RECORD 
REWRITE-RECORD 
DELETE-RECORD 


805188 
2805190 
805209 
805210 
005229 
005238 
005240 
005258 
005268 
805278 
005280 
805298 
005388 
005318 
205320 
205330 
005348 
005358 
005360 
205378 
005380 
005398 
805409 
205410 
005420 
205430 
805448 
805450 
005460 
005478 
005480 
805498 
005508 
205518 
005520 
005530 
005548 
005558 
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CHANGE -MODE 
CLEAR-RECORD-AREA 
CLOSE-FILE 
MANUAL-ENTER 
DEPENDING ON FUNCTION-NUMBER. 


INVALID-FUNCTION. 


CALL ALARM. 
GO TO ACCEPT-FROM-SCREEN. 


CALL-HELP. 


IF FILE-CLOSED MOVE 75 TO HELP-NO 
ELSE IF MANUAL-MODE MOVE 76 TO HELP-NO 
ELSE MOVE 77 TO HELP-NO. 
CALL HELP USING HELP-NO 
ON OVERFLOW GO TO INSUFFICIENT-MEMORY. 
GO TO FUNCTION-PROGESSED. 


CALL-DIRECTORY. 


CALL DIRECTORY USING SHOW-FILES FILE-NAME DAT-EXT 
ON OVERFLOW GO TO INSUFFICIENT-MEMORY. 
GO TO FUNCTION-PROCGESSED. 


INSUFFICIENT-MEMORY. 


MOVE VERB (FUNCTION-NUMBER) TO RESULT-LINE. 
MOVE ”"Insufficient memory” TO RES-COMMENT. 
GO TO FUNCTION-PROCESSED. 


START-EQUAL. 


START INDEXED-FILE KEY = RECORD-KEY 
INVALID KEY PERFORM CRP-UNDEFINED GO TO REPORT-STATUS. 
IF SUCCESSFUL 
PERFORM CRP-EQUAL 
PERFORM SET-UP-CRP 
PERFORM SAVE-RECORD 
ELSE PERFORM CRP-UNDEFINED. 
GO TO REPORT-STATUS. 


005560 START-NOT-LESS-THAN. 


005578 
205588 
085598 
005608 
005610 
085620 
005630 
005648 


START INDEXED-FILE KEY NOT < RECORD-KEY 
INVALID KEY PERFORM CRP-UNDEFINED GO TO REPORT-STATUS. 
IF SUCCESSFUL 
PERFORM CRP-NOT-LESS 
PERFORM SET-UP-CRP 
PERFORM SAVE-RECORD 
ELSE PERFORM CRP-UNDEFINED. 
GO TO REPORT-STATUS. 
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805658 
805668 
805678 
805689 
005699 
805708 
805710 
005728 
085738 
005748 
805758 
005768 
205770 
005780 
085798 
805808 
805818 
005828 
205838 
005840 
005850 
005860 
805878 
005889 
005898 
005988 
085918 
205928 
805939 
005948 
005950 
805960 
205978 
005980 
285998 
006080 
806010 
006028 
806039 
806040 
006050 
006069 
806078 
D06080 
006098 
806108 
BD6110 
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START-GREATER-THAN. 
START INDEXED-FILE KEY > RECORD-KEY 
INVALID KEY PERFORM CRP-UNDEFINED GO TO REPORT-STATUS. 
IF SUCCESSFUL 
PERFORM CRP-GREATER 
PERFORM SET-UP-CRP 
PERFORM SAVE-RECORD 
ELSE PERFORM CRP-UNDEFINED. 
GO TO REPORT-STATUS. 


READ-NEXT-RECORD. 
READ INDEXED-FILE NEXT 
AT END PERFORM CRP-UNDEFINED GO TO REPORT-STATUS. 
IF SUCCESSFUL 
PERFORM CRP-EQUAL 
PERFORM SET-UP-CRP 
PERFORM SAVE-RECORD 
ELSE PERFORM CRP-UNDEFINED. 
GO TO REPORT-STATUS. 


READ-KEY-RECORD. 
READ INDEXED-FILE 
INVALID KEY PERFORM CRP-UNDEFINED GO TO REPORT-STATUS. 
IF SUCCESSFUL 
PERFORM CRP-EQUAL 
PERFORM SET-UP-CRP 
PERFORM SAVE-RECORD 
ELSE PERFORM CRP-UNDEFINED. 
GO TO REPORT-STATUS. 


REWRITE-RECORD. 
REWRITE INDEXED-RECORD INVALID KEY GO TO REPORT-STATUS. 
PERFORM SAVE-RECORD. 
GO TO REPORT-STATUS. 


WRITE-RECORD. 
WRITE INDEXED-RECORD INVALID KEY GO TO REPORT-STATUS. 
PERFORM SAVE-RECORD. 
GO TO REPORT-STATUS. 


DELETE-RECORD. 
MOVE 248 TO MENU-LENGTH. 
CALL SCREEN-IO USING WRITE-ATTR MENU-PARAMS 
QUERY-DELETE-ATTR. 
MOVE ”- Delete record ? Y/N” TO RES-COMMENT. 
PERFORM WRITE-RESULT-LINE. 
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2061208 GET-Y-OR-N. 


006138 
006140 
806150 
006160 
006178 
006180 
286198 
2806208 
006218 
006220 
006238 
086240 
006258 
006260 
806270 
006280 
006290 
206308 
206310 
006329 
006330 
006340 
806350 
806360 
006370 
006380 
206398 
006408 
006410 
006420 
806430 
006448 
006458 
206460 
006470 
006480 
806490 
206508 
006518 
006520 
806530 
006540 
806559 
006560 
806570 
206580 


CALL READ-CHAR USING Y-OR-N. 
IF EXTENDED-CODE 

CALL ALARM 

CALL READ-CHAR USING Y-OR-N 

GO TO GET-Y-OR-N. 
IF NOT YES-OR-NO CALL ALARM GO TO GET-Y-OR-N. 
CALL SCREEN-IO USING WRITE-ATTR MENU-PARAMS MANUAL-MENU-ATTR. 
MOVE 169 TO MENU-LENGTH. 
IF ANSWER-IS-NO 

MOVE ” not executed” TO RES-COMMENT 

GO TO FUNCTION-PROCGESSED. 
DELETE INDEXED-FILE INVALID KEY NEXT SENTENCE. 
GO TO REPORT-STATUS. 


CHANGE-MODE. 


MOVE "A” TO MANUAL-AUTOMATIC. 
GO TO DISPLAY-MENU. 


CLEAR-RECORD-AREA. 


MOVE SPACE TO INDEXED-RECORD. 
PERFORM SET-UP-SCREEN. 
PERFORM SET-UP-RECORD. 
PERFORM SAVE-RECORD. 


RECORD-AREA-CLEARED. 


GO TO ACCEPT-FROM-SCREEN. 


CLOSE-FILE. 


CLOSE INDEXED-FILE. 

IF NOT SUCCESSFUL GO TO REPORT-STATUS. 

MOVE "N” TO OPEN-INDIC. 

MOVE SPACE TO RESULT-LINE. 

MOVE ALL ”-” TO DIV-STATUS-MSG DIV-CRP-MSG. 
GO TO ACCEPT-FILE-NAME. 


MANUAL-ENTER. 


MOVE "please use function keys during manual operation” 
TO RESULT-LINE. 
GO TO INVALID-FUNCTION. 


AUTOMATIC-OPERATION. 


MOVE ALL "-” TO DIV-STATUS-MSG DIV-CRP-MSG. 
IF HELP-KEY GO TO CALL-HELP. 
MOVE SPACE TO RESULT-LINE. 
PERFORM WRITE-RESULT-LINE. 
IF MODE-KEY 
MOVE "M” TO MANUAL-AUTOMATIC 
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006598 
006608 
206610 
006628 
006630 
206640 
006658 
806668 
006670 
006680 
806698 
006708 
886718 
206728 
006738 
006740 
206750 
006768 
806778 
006788 
886798 
206808 
D06819 
006820 
806830 
006840 
006858 
006860 
806870 
006880 
006890 
006908 
806918 
206928 
206938 
006940 
006958 
006968 
006970 
006989 
006990 
287008 
207018 
007029 
807038 
007049 
0907059 
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GO TO DISPLAY-MENU. 
IF CLEAR-KEY GO TO CLEAR-RECORD-AREA. 
IF ESCAPE-KEY 
MOVE CLOSE-VERB TO RES-VERB 
PERFORM WRITE-RESULT-LINE 
GO TO CLOSE-FILE. 
IF NOT ENTER-KEY GO TO INVALID-FUNCTION. 
IF RECORD-KEY NOT = SAVED-KEY 
MOVE ”Y” TO KEY-CHANGED-INDIC 
ELSE MOVE ”N” TO KEY-CHANGED-INDIC. 
IF RECORD-DATA NOT = SAVED-DATA 
MOVE ”Y” TO DATA-CHANGED-INDIC 
ELSE MOVE ”"N” TO DATA-CHANGED-INDIC. 
IF DATA-CHANGED GO TO UPDATE-FILE. 
IF KEY-CHANGED GO TO READ-FILE. 
MOVE START-GREATER-VERB TO RESULT-LINE. 
PERFORM WRITE-RESULT-LINE. 
START INDEXED-FILE KEY > RECORD-KEY 
INVALID GO TO END-OF-FILE-REACHED. 
IF NOT SUCCESSFUL PERFORM CRP-UNDEFINED 
GO TO REPORT-STATUS. 
PERFORM CRP-GREATER. 
PERFORM SET-UP-CRP. 
MOVE READ-NEXT-VERB TO RES-VERB-2. 
PERFORM WRITE-RESULT-LINE. 
READ INDEXED-FILE NEXT. 
IF NOT SUCCESSFUL PERFORM CRP-UNDEFINED 
GO TO REPORT-STATUS. 
PERFORM CRP-EQUAL. 
PERFORM SET-UP-CRP. 
MOVE "RECORD READ” TO RES-COMMENT-2. 
PERFORM. SAVE-RECORD. 
GO TO ACCEPT-FROM-SCREEN. 
READ-FILE. 
MOVE READ-KEY-VERB TO RESULT-LINE. 
PERFORM WRITE-RESULT-LINE. 
READ INDEXED-FILE INVALID GO TO RECORD-NOT-FOUND. 
IF NOT SUCCESSFUL PERFORM CRP-UNDEFINED 
GO TO REPORT-STATUS. 
PERFORM CRP-EQUAL. 
PERFORM SET-UP-CRP. 
MOVE "RECORD READ” TO RES-COMMENT. 
PERFORM SAVE-RECORD. 
GO TO ACCEPT-FROM-SCREEN. 
UPDATE-FILE. 
MOVE WRITE-VERB TO RESULT-LINE. 
PERFORM WRITE-RESULT-LINE. 


087060 
0807070 
207088 
207098 
807180 
871180 
887128 
0887130 
007140 
807150 
807160 
897178 
087180 
207198 
007208 
807218 
887228 
007238 
007248 
007259 
007268 
207278 
007289 
807298 
287308 
897310 
007328 
007330 
007340 
807358 
0807368 
807378 
807389 
807398 
207408 
007418 
007420 
807430 
007440 
887450 
807460 
007470 
007480 
0807498 
807508 
887519 
007528 
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WRITE INDEXED-RECORD INVALID GO TO AMEND-RECORD. 
IF NOT SUCCESSFUL GO TO REPORT-STATUS. 

MOVE "RECORD WRITTEN” TO RES-COMMENT. 

PERFORM SAVE-RECORD. 

GO TO ACCEPT-FROM-SCREEN. 


AMEND-RECORD. 


IF KEY-CHANGED GO TO RECORD-ALREADY-EXISTS. 
MOVE REWRITE-VERB TO RESULT-LINE. 

PERFORM WRITE-RESULT-LINE. 

REWRITE INDEXED-RECORD INVALID NEXT SENTENCE. 
IF NOT SUCCESSFUL GO TO REPORT-STATUS. 

MOVE "RECORD AMENDED” TO RES-COMMENT. 

PERFORM SAVE-RECORD. 

GO TO ACCEPT-FROM-SCREEN. 


RECORD-ALREADY-EXISTS. 


MOVE "RECORD ALREADY EXISTS” TO RES-COMMENT. 
CALL ALARM. 
GO TO ACCEPT-FROM-SCREEN. 


RECORD-NOT-FOUND. 


PERFORM CRP-UNDEFINED. 

MOVE "RECORD NOT FOUND” TO RES-COMMENT. 
MOVE SPACE TO RECORD-DATA. 

PERFORM SET-UP-SCREEN. 

PERFORM SET-UP-RECORD. 

PERFORM SAVE-RECORD. 

CALL ALARM. 

GO TO ACGEPT-FROM-SCREEN. 


END-OF-FILE-REACHED. 


PERFORM CRP-UNDEFINED. 

MOVE "END OF FILE REACHED” TO RES-COMMENT. 
CALL ALARM. 

GO TO ACCEPT-FROM-SCREEN. 


CRP-START-OF-FILE. 


MOVE ”"=start of file ” TO CRP. 


CRP-UNDEFINED. 


MOVE "-undefined ” TO CRP. 


CRP-EQUAL. 


MOVE "=" TO CRP-REL. 


CRP-NOT-LESS. 


MOVE ”"2” TO CRP-REL. 


CRP-GREATER. 


MOVE ">” TO CRP-REL. 


SET-UP-CRP. 


MOVE ALL ”-” TO CRP-KEY. 
STRING RECORD-KEY DELIMITED BY SIZE INTO CRP-KEY. 
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007538 
007548 
807558 
807568 
887578 
0807588 
307598 
007608 
007610 
007628 
007638 
007640 
007658 
007668 
207670 
0807680 
087698 
007708 
887710 
807728 
0807738 
007748 
0077508 
007768 
207778 
007780 
007798 
B07808 
Bo7810 
0807829 
807830 
007848 
007850 
007868 
207878 
007880 
007898 
807908 
807918 
287920 
007938 
007940 
807958 
807968 
2807978 
207980 
2807998 
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WRITE-DIVIDER-LINE. 
CALL SCREEN-IO USING 


CALL SCREEN-IO USING 
WRITE-OPEN-MENU. 

CALL SCREEN-IO USING 

CALL SCREEN-IO USING 
WRITE-MANUAL-MENU. 

CALL SCREEN-IO USING 

CALL SCREEN-IO USING 
WRITE-AUTO-MENU. 

CALL SCREEN-IO USING 

CALL SCREEN-IO USING 
WRITE-RESULT-LINE. 

CALL SCREEN-IO USING 


CALL SCREEN-IO USING 


SAVE-RECORD. 


WRITE-ATTR DIVIDER-PARAMS 
NORMAL-ATTR-LINE. 
WRITE-TEXT DIVIDER-PARAMS DIVIDER-LINE. 


WRITE-ATTR MENU-PARAMS OPEN-MENU-ATTR. 
WRITE-TEXT MENU-PARAMS OPEN-MENU. 


WRITE-ATTR MENU-PARAMS MANUAL-MENU-ATTR. 
WRITE-TEXT MENU-PARAMS MANUAL-MENU. 


WRITE-ATTR MENU-PARAMS AUTO-MENU-ATTR. 
WRITE-TEXT MENU-PARAMS AUTO-MENU. 


WRITE-ATTR RESULT-PARAMS 
NORMAL-ATTR-LINE. 
WRITE-TEXT RESULT-PARAMS RESULT-LINE. 


MOVE INDEXED-RECORD TO SAVED-RECORD. 


MOVE START-OF-KEY TO 


REPORT-STATUS. 


CURSOR-POSITION. 


IF NOT SUCCESSFUL CALL ALARM. 
MOVE "status—/——"” TO DIV-STATUS-MSG. 


MOVE STATUS-1 TO DIV- 
IF STATUS-1 NOT = ”9” 


MOVE STATUS-2 TO 
ELSE 
MOVE STATUS-2 TO 


STATUS-1. 


DIV-STATUS-2 


BINARY-CHAR 


MOVE BINARY-STATUS-2 TO DIV-ST2-999. 

SEARCH ALL COMMENT-ENTRY 
AT END MOVE "Refer to Operating Guide” TO RES-COMMENT 
WHEN COMMENT-STATUS (COMMENT-INDEX) = DIV-STATUS 


MOVE COMMENT 
INSPECT DIV-STATUS-2 


FUNCTION-PROCESSED. 
IF FILE-CLOSED GO TO 


(COMMENT-INDEX) TO RES-COMMENT. 
REPLACING ALL SPACE BY "—”. 


ACCEPT-FILE-NAME 


ELSE GO TO ACCEPT-FROM-SCREEN. 


END-OF-PROGRAM. 


MOVE PREDISPLAY-ON TO PREDISPLAY-CONTROL. 
CALL ACCEPT-CONTROL USING ACCEPT-CONTROL-FLAG 


PREDISPLAY-PARAMS. 


DISPLAY SPACE UPON CRT. 


208008 
008018 
008028 
208039 
D08040 
008050 
088068 
008078 
BD8080 
808098 
B08100 
BRe11B 
208120 
008139 
008140 
208158 
008160 
008178 
008180 
2888190 
008218 
008220 
008230 
008249 
008250 
008260 
808278 
008289 
0808290 
008300 
808310 
008320 
808330 
008340 
208350 
008360 
008370 
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EXIT-PROGRAM. 
EXIT PROGRAM. 


STOP-RUN. 
STOP RUN. 


INITIALISE-MENU-ATTRIBUTES. 
MOVE "N” TO FIRST-TIME-INDIC. 


CALL SCREEN-CONTROL USING GET-SYSTEM-ATTR SYSTEM-ATTR-ARRAY. 


IF NORMAL-ATTR = ORIG-HILITE-ATTR 
INSPECT MENU-S8-ATTR 


REPLACING ALL ORIG-HILITE-ATTR BY LOW-VALUE 


MOVE LOW-VALUE TO ORIG-HILITE-ATTR. 
INSPECT MENU-Bd-ATTR 


REPLACING ALL ORIG-NORMAL-ATTR BY NORMAL-ATTR. 


INSPECT MENU-Bß-ATTR 


REPLACING ALL ORIG-HILITE-ATTR BY HILITE-ATTR. 


INSPECT FILE-NAME-ATTR 


REPLACING CHARACTERS BY HIUNDER-ATTR. 


SET-UP-DEFAULT-FILE-NAME. 

MOVE "pgn33 " TO FILE-NAME. 
DISPLAY-FORM. 

MOVE 1688 TO FORM-LENGTH. 

MOVE 1688 TO IO-LENGTH. 

CALL SCREEN-IO USING WRITE-ATTR FORM-PARAMS 

MOVE 1688 TO IO-LENGTH. 

CALL SCREEN-IO USING WRITE-TEXT FORM-PARAMS 
ACCEPT-RECORD. 

ACCEPT pgn33-01 FROM CRT. 
SET-UP-RECORD. 

MOVE CORR pgm33-01 TO INDEXED-RECORD. 
SET-UP-SCREEN. 

MOVE CORR INDEXED-RECORD TO pgn33-M1. 
DISPLAY-RECORD. 

MOVE 1413 TO IO-LENGTH. 

CALL SCREEN-IO USING WRITE-TEXT FORM-PARAMS 


pgn33-ß8-ATTR. 
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Adressenverwaltung . 


None: EEE 
Strare: NENNE 


Plz: ME Ort: 
Telefon: EEE 
Bemerkung: EEE 


Thea F2=directory Escape=stop-run 
To OPEN I-O enter file-name PGM33 then press 4- 


Dialog-Testlauf (PGM33) 


Adressenverwaltung 


Ne: 

Strarc: 

Plz: Ort: 

Telefon: 

Bemerkung: EEE 


PGM33— Auto 
Fi=help 


Fid=manual/auto Ctrl+Home=sclear Escape=close-file 


Dialog-Testlauf (PGM33) 
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Adressenverwaltung 


oc: 
Strarc: 

Plz: Ort: 

Telefon: 

Bemerkung: 


PGM33> —— — —— cur .Tec.ptr=start of file Manual 
Fi=help F2=start= F3=start2 F4=start> F5=read-key F6=read-next F7=urite | 
F8=rewrite F9=delete Fid=manual/auto Ctrl+Home=clear Escape=close-file 


Dialog-Testlauf (PGM33) 
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PGM34: Zugriff auf absolute Speicheradressen über 
Segmentnummer und Offset (Feststellen 


der RAM-Kapazität) 
808018 IDENTIFICATION DIVISION. 
200028 PROGRAM-ID. PGM34. 
000030 AUTHOR. R. HABIB. 
000048 DATE-WRITTEN. 81-01-1987. 


000050 DATE-COMPILED. B1-Apr-87 19:41. 


BI EDER TEEEEUTEEKUHREEKERINERR 
VILLE SEE EEE E28 2 222 2 2 202 2 2 22 22 3 2 2 2 2022 2 2 21212271272 27202020202 727,2.202 2027212222 2 27272 27273 


DODDED*« Rx 
000090%** PROGRAMMFUNKTION: *% 
DODIDN*% *x 
BRA110** MIT DIESEM PROGRAMM KÖNNEN SIE DIE GRÖSSE DES HAUPTSPEICHERS ** 
2080120** FESTSTELLEN. *% 
DON130%*%* *% 
DRDO140** DAS PROGRAMM GREIFT AUF ABSOLUTE SPEICHERADRESSEN ÜBER ”% 
DRD150** SEGMENT:OFFSET-ADRESSIERUNG. “x 
DODI6O*% ”% 
DDD17O%*%* *% 


EIERKETLEREELEEFESTET TER EEE EEE EEE EEE EEE EEE EDEL EELLEEEETELERDEND 
IDIRKLELELERERETEEPEE EEE TEERETPIEIEEEEPEIUOODE ERDE EDER ENDE 22222 
000288 ENVIRONMENT DIVISION. 

800210 CONFIGURATION SECTION. 

000228 SOURCE-COMPUTER. IBM-PC. 

000230 OBJECT-COMPUTER. IBM-PC. 

000240 SPECIAL-NAMES. 

000250 CONSOLE IS CRT. 

008268 INPUT-OUTPUT SECTION. 

08008278 FILE-CONTROL. 


80.0280: 3 33 33 3ER IHIGTEIBBIBIBNIONWIGIGTEITEIBIEIEI NIIT III III IIERICRE N 


000298 DATA DIVISION. 


800300 

200318 WORKING-STORAGE SECTION. 

800328 

000338 81 SEGMENT-NR PIC 9(5). 
800348 81 OFFSET PIC 9(5). 
000358 D1 SEGMENT-LESEN PICXK. 

2800360 

BBO378 Di WORT PIC 9(4) COMP. 
800380 01 WORT-ANZEIGE PIC 2(4). 
800390 81 DUMMY PICX. 


VIIEVTEEE EEE 2 2 202 202720270272 702 272 2027272727272 727272 1212 1272727271272 727272727272 1212727272722 2272727272722 2727272 2 272127 
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0008418 PROCEDURE DIVISION. 
000420 PROGRAMM-STEUERUNG SECTION. 
200430 PR-1800. 


000440 


PERFORM VERARBEITUNG. 


080450 PR-9999. 


800460 
800478 


EXIT PROGRAM. 
STOP RUN. 


VENEETELDEE EEE SE EEE 2 2 22 5 2222 2 2 2 22 2027 2127572727202 020202021212 72027 2.2.2.2 20202 2.2.2.2 202.272 2.202 02.2.2.2.. 


08004908 VERARBEITUNG SECTION. 
BRR508 VER-10888. 


808518 
208528 
200539 
808540 
800558 
000569 
200578 
800589 
200598 
000600 
200618 
000628 


DISPLAY SPACE UPON CRT. 

MOVE 64 TO SEGMENT-NR. 
MOVE 19 TO OFFSET. 

MOVE X”94” TO SEGMENT-LESEN. 


CALL SEGMENT-LESEN USING SEGMENT-NR OFFSET WORT. 
MOVE WORT TO WORT-ANZEIGE. 

DISPLAY "MEMORY SIZE = 
DISPLAY WORT-ANZEIGE 
ACCEPT DUMMY 


KB” AT 1810. 
AT 1825. 
AT BI. 


VER-9999. 


EXIT. 


MEMORY SIZE = WE 


Dialog-Testlauf (PGM34) 
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PGM35: (MASTERPROGRAMM) Aufrufen eines 
beliebigen Programms 


BBnd1d IDENTIFICATION DIVISION. 


0000208 PROGRAM-ID. PGM35. 
2800030 AUTHOR. R. HABIB. 
0200048 DATE-WRITTEN. 81-81-1987. 


00050 DATE-COMPILED. B1-Apr-87 19:41. 


WITLTEE EEE EEE 2 2 2 22 2021272 027272027272 0272720272722 727272727272 1272 72027272 272727272 27272 2727227272722 21202027272 12727 
WIDE: E22 02202 272 050272027212 7272 2727202027272 727272727272 72 7272 27272027272 27272 2727202702 2120202727202 72 0227202720272 727 


WLLDETZE Rx 
B00090** PROGRAMMFUNKTION: ad 
DRD1DD** *% 
BRD110** DAS PROGRAMM ERMÖGLICHT IHNEN DIE AUSFÜHRUNG EINES BELIEBIGEN** 
BRQd120** COBOL-PROGRAMMS, WELCHES BEREITS ALS INT- ODER GNT-DATEI *% 
208130%** VORLIEGT. ”% 
BOD140*% xx 


BO 15.03» € a8 a6 a6 D6 a6 a6 a6 a6 a6 ae a6 a6 aa BEE 
WEERKTELELELELEETTTERESSTEREEREUEDEEEEERTEOEESEEEEIEEEUERDE DEE EEE EEE 
080178 ENVIRONMENT DIVISION. 

ABN180 CONFIGURATION SECTION. 

BRB190 SOURCE-COMPUTER. IBM-PC. 

288208 OBJECT-COMPUTER. IBM-PC. 

B0B210 SPECIAL-NAMES. 

200220 CURSOR IS CURSOR-POS, 

200230 CONSOLE IS CRT. 

8082408 INPUT-OUTPUT SECTION. 

200258 FILE-CONTROL. 


VIIIAT ELLE EEE 2202 202020202 020222 272722027202 72 0212 22727 2027202727272 7272727272 7202 2727272727272 7227272727272 7202027272727, 


000278 DATA DIVISION. 


208280 

8002908 WORKING-STORAGE SECTION. 

BR0308 01 CURSOR-POS PIC 9(4) VALUE 9101. 
200310 

00328 81 PROGRAMM-ID. 

200330 85 LAUFWERK PICX. 

200349 85 FILLER PIC X VALUE ”":”. 

200358 85 PROGRAMM-NAME PIC X(8). 

200360 


VIEBIEELLEEES 2 22 202727272 2022702027272 0202 1272727272 12 127272727272 72 2727272727272 72727272 020272727272 72727272°2 2020272727275 


200380* PARAMETER FÜR EIN/AUSGABE VON BILDSCHIRM-ATTRIBUTEN BZW. DATEN * 


280 39 9: HB ER RREIBIEBIIIGHIEIEIEIBIIHHIIBIIGIHIHEEIBTIHIIHBBEIBIIIGIHHIHIIIIIHIHIHHI NER 


DOdABd Di EIN-AUSGABE PICX() VALUE X”B7”. 
B084108 D1 SCHREIBEN-ZEICHEN PIC 9(2) COMP VALUE 1. 
02080428 81 SCHREIBEN-ATTR PIC 9(2) COMP VALUE 3. 
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000438 _ 

800448 01 FORM-PARAMETER. 

B06458 83 LAENGE PIC 9(4) COMP. 
08468 83 BILDSCHIRM-POS PIC 9(4) CONMP. 
00470 83 PUFFER-POS PIC 9(4) COMP. 


80.0480 3:33 Be BB RRRRRITRIREIBIRIBGEEIRIBIBIEIEIIRIEEIEIBEIBIBIEIIBIIBIIBOEIBIIOIEI IT IENENEH 


00490 Bi TASTEN-PROGRAMMIERUNG PIC 99 COMP VALUE 9. 
000508 Di TASTEN-TABELLE. 

000518 83 TASTEN-NR PIC 99 COMP. 

200520% FUNKTIONSTASTE Fi =1 

2800530 03 FILLER PIC X(83) VALUE X”028083B”. 

200540* DIE TASTEN: ESC=2 

000558 03 FILLER PIC X(2) VALUE X”B11B”. 

B00560* ENDE-KENNZEICHEN 

800570 83 FILLER PIC X VALUE X”O8”. 


8095 8 DU 3 HERIBERT IE IE IE IE IEIIIIIEIEIEIEIEREIEIEIIBIHIEIIEIEIEIEIIIEIEICHIIEIEIEK IHRER: 


BOD6RD 91 pgm35-Bd-ATTR. 


D88618 83 FILLER PIC X(8181) VALUE ALL X”83”. 
809620 83 FILLER PIC X(09041) VALUE ALL X”31”. 
000630 83 FILLER PIC X(8839) VALUE ALL X”03”. 
000640 83 FILLER PIC X(8841) VALUE ALL X”31”. 
200650 83 FILLER PIC X(0839) VALUE ALL X”03”. 
800660 83 FIELER PIC X(8841) VALUE ALL X”31”. 
0800670 83 FILLER PIC X(00839) VALUE ALL X”03”. 
008680 03 FILLER PIC X(0841) VALUE ALL X”31”. 
000698 83 FILLER PIC X(8285) VALUE ALL X”03”. 
2800708 83 FILLER PIC X(8882) VALUE ALL X”1B”. 
800718 83 FILLER PIC X(0158) VALUE ALL X”083”. 
000728 083 FILLER PIC X(8088) VALUE ALL X”1B”. 
800730 83 FILLER PIC X(8687) VALUE ALL X”83”. 
200740 83 FILLER PIC X(8082) VALUE ALL X”OB”. 
0808750 83 FILLER PIC X(8817) VALUE ALL X”03”. 
200760 083 FILLER PIC X(0003) VALUE ALL X”OB”. 
880778 83 FILLER PIC X(8887) VALUE ALL X”03”. 
800788 83 FILLER PIC X(8820) VALUE ALL X”04”. 
800790 83 FILLER PIC X(8429) VALUE ALL X”083”. 


280888 91 pgn35-08 
000819 03 pgn35-B80-B101 PIC X(DO080) VALUE " gm—m———m— 


BODBZD-_——Pm—m—m—m—m—m—m—mm 
BB3E LD3  pgm35-BR-D2B1 PIC X(BBD1) VALUE "|". 
Bode 83 FILLER PIC X(0878). 


B0B85d B3 _ pgn35-B0-0288 PIC X(B081) VALUE "|". 
Bnd86d 83 _pgm35-00-0301 PIC X(BER1) VALUE "|". 
Bnda7d 83 FILLER PIC X(B878). 
SIERT, 03 _ pgm35-00-0380 PIC X(BBR1) VALUE "|". 
D00898 03 _ pgm35-B0-0401 PIC X(B081) VALUE "|". 
800908 83 FILLER PIC X(2824). 
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808910 83 pgn35-00-0426 PIC X(0036) VALUE "Master-Programm zur Au 
200928- "sführung eines”. 

200930 83 FILLER PIC X(dB18). 

2800948 B3 pgn35-0d-8488 PIC X(Bdd1) VALUE ”|”. 

800958 83 pgn35-00-0581 PIC X(ddd1) VALUE ”|”. 


2800968 03 FILLER PIC X(8831). 
880978 B3 pgm35-00-0533 PIC X(8828) VALUE "beliebigen Progranns”. 
B00988 83 FILLER PIC X(8827). 


200998 83 pgn35-00-0580 PIC X(Bdd1) VALUE ”|”. 
DR1DDD 03 pgm35-08-0601 PIC X(B881) VALUE "|". 
BD1B18 83 FILLER PIC X(8878). 

081020 03 pgm35-00-8680 PIC X(BB01) VALUE "|". 
281038 03 pgn35-08-0701 PIC X(DRB1) VALUE "|". 
B01040 83 FILLER PIC X(8878). 

881858 83 pgn35-08-0780 PIC X(d881) VALUE "|". 
201068 03 pgn35-Bd-B8d1 PIC X(BBH1) VALUE "|". 
801078 83 FILLER PIC X(8978). 

201080 03 pgn35-0d-d88d PIC X(Dd1) VALUE "|". 
281098 03 pgn35-Bd-B8901 PIC X(8029) VALUE "| Programm auf Laufw 
BDO1120- "erk: C:”, 

BR1110 03 FILLER PIC X(8858). 

B81128 03 pgn35-Bd-B988 PIC X(BBd1) VALUE "|". 
891138 B3 pgn35-Dd-1801 PIC X(Bdd1) VALUE "|". 
DO1140 83 FILLER PIC X(8078). 

BB11580 83 pgn35-dd-1d8d PIC X(BB81) VALUE "|". 
B01168 03 pgm35-dd-11d1 PIC X(8817) VALUE "| Programmname:”. 
Ba1178 83 FILLER PIC X(8862). 

Ba1188 03 pgn35-0d-1180 PIC X(Bdd1) VALUE "|". 
291198 03 pem35-Dd-1201 PIC X(B801) VALUE ”"|”. 
881208 83 FILLER PIC X(0078). 

881210 03 pgn35-0d-1280 PIC X(Bdd1) VALUE "|". 
801228 03 pgn35-Dd-1301 PIC X(B801) VALUE "|". 
001239 83 FILLER PIC X(8978). 

091249 03 pgn35-00-1380 PIC X(8881) VALUE "|". 
801258 03 pgn35-80-1401 PIC X(B881) VALUE "|". 
801260 83 FILLER PIC X(8878). 

801270 83 pgn35-08-1488 PIC X(B881) VALUE "|". 
801280 03 pgn35-08-1501 PIC X(B881) VALUE "|”. 
891299 83 FILLER PIC X(8878). 

DA1308. 03 pgn35-80-1580 PIC X(BBd1) VALUE ”"|”. 
201318 03 pgn35-88-1601 PIC X(dd81) VALUE "|". 
801320 83 FILLER PIC X(8878). 

281330 83 pgn35-08-1680 PIC X(B8d1) VALUE ”|”. 
001340 Ö3 pgn35-B0d-1791 PIC X(B8d1) VALUE ”|”. 
801350 83 FILLER PIC X(8978). 

201368 03 pgn35-80-1780 PIC X(8B81) VALUE ”"|”. 
801378 03 pgn35-Bd-1801 PIC X(B881) VALUE "|". 
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081380 
8081390 
B01400 


D01418- 


001420 


881438- 


001448 
881458 
2801460 


201478- 
801480 01 


001490 
091508 
881518 
881528 


03 
03 
03 


03 


Demonstrationsprogramme 


FILLER PIC X(B8078). 
pgn35-0d-1880 PIC X(Bdd1) VALUE "|". 


pgn35-08-1981 PIC X(B080) VALUE " m————— 


pgn35-8d-2801 PIC X(0831) VALUE "| Fi = Ausführen E 


"sc = Ende”. 


83 
D3 
B3 


03 
03 
83 
03 


FILLER PIC X(0848). 


pgn35-Dd-2888 PIC X(d001) VALUE "|". 
pgm35-00-2101 PIC X(DD80) VALUE " Lumen 


I" 


pgn35-81 REDEFINES pgn35-09 

FILLER PIC X(8667). 
pgn35-81-8928 PIC X(88B1). 

FILLER PIC X(8159). 
pgm35-01-1128 PIC X(B8d8). 
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801540 PROCEDURE DIVISION. 

0801550 PROGRAMM-STEUERUNG SECTION. 

B01560 PR-IBDR. 

PERFORM VORLAUF. 

PERFORM VERARBEITUNG UNTIL TASTEN-NR = 2. 


801578 
2801589 
801598 
001600 


001648 
001659 
801668 
081679 
001680 
801690 
801700 
81718 
201728 
881730 
001748 


PR-9999. 


STOP RUN. 

801610 3:3: 3 BEREITEN IE IEIIEII II IEH HEN 
081620 VORLAUF SECTION. 

801638 VOR-1804. 


VOR-9999. 


DISPLAY SPACE UPON CRT. 

CALL X”Bd” USING TASTEN-PROGRAMMIERUNG TASTEN-TABELLE. 

MOVE 1680 TO LAENGE. 

MOVE 1 TO BILDSCHIRM-POS PUFFER-POS. 

CALL EIN-AUSGABE USING SCHREIBEN-ATTR FORM-PARAMETER 
PGM35-ÖB-ATTR. 

EXIT. 


801 75 933 3 3GB BBBERRBRRRBRREBEBEBEBBBBEBRGBIEIBEBISSEISIEIEIIIBIBIESEESE 
801760 VERARBEITUNG SECTION. 

881778 VER-1888. 

CALL EIN-AUSGABE USING SCHREIBEN-ATTR FORM-PARAMETER 


001789 
281798 
001808 
001819 
281820 
201830 
001840 


PGM35-BD-ATTR. 


CALL EIN-AUSGABE USING SCHREIBEN-ZEICHEN FORM-PARAMETER 


PGM35-80. 


ACCEPT PGM35-81 FROM CRT. 
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Demonstrationsprogramme 


81850 

01860 IF TASTEN-NR = 1] 

291878 

001880 MOVE PGM35-91-8928 TO LAUFWERK 
281890 MOVE PGM35-81-1128 TO PROGRAMM-NAME 
881900 CALL PROGRAMM-ID 

BB1I1B DISPLAY SPACE UPON CRT 

801920 CANCEL PROGRAMM-ID. 


881930 VER-9999. 
B01940 EXIT. 


Haster-rogrann zur Ausführung eines 
beliebigen Programms 


Programm auf Laufwerk: fg 


Programmnane: PGMIG 


Fi = Ausführen Esc = Ende 


Dialog-Testlauf (PGM35) 
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ANHANG A: 
Tabelle der Tastaturcodes 


Die folgende Tabelle zeigt den beim Druck einer bestimmten Taste bzw. 
Tastenkombination erzeugten Code in hexadezimaler Form. Diese Werte 
gelten nur wenn Caps-Lock und Num-Lock ausgeschaltet sind. Ist Caps-Lock 
eingeschaltet, vertauschen sich die Werte unter Normal und Shift bei 
alphabetischen Tasten. Ist Num-Lock eingeschaltet, vertauschen sich die 
Werte unter Normal und Shift im 10er-Block. 


Beispiel: 


Die Taste A erzeugt die folgenden Codes: 


_— 61 (1 Byte Code) 


— 41 (1 Byte Code) 
+ _ 01 (1 Byte Code) 


— DOO1E (2 Byte Code) 


A-1 


Tabelle der Tastaturcodes 


Tabelle der Code-Sequenzen 
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Tabelle der Tastaturcodes 


Code-Sequenzen (Fortsetzung) 


A 
B 
C 
D 
E 
F 
G 
H 
I 
J 
K 
L 
M 
N 
0) 
P 
Q 
R 
S 
T 
U 
V 
W 
X 
Y 
Z 
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Tabelle der Tastaturcodes 


Code-Sequenzen (Fortsetzung) 
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ANHANG B: ASCIH-Code-Tabelle (USA) 
DEZ HEX CHR | DEZ HEX car | DEZ HEX CHR | 


OO NSIANPUN—AO 
»CO> NH E< 


oooo sn pPWND—Q@n. 


.J) v I IN wo 0. 


a 
b 
c 
d 
e 
f 
& 
h 
i 
J 
K 
l 
m 
n 
o 
p 
q 
r 
s 
t 
u 
v 
w 
x 
y 
z 
ä 
Ö 
ü 
P 
E 


L 


zu N - ORGA 
SHNDTDordroz sts Hmm nah HD NW» 
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ANHANG C: 
Umrechnungstabelle (hexadezimale/dezimale) 


C-1 


Umrechnungstabelle 


Umrechnungstabelle (Fortsetzung) 
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Index 


A 

ADIS-Modul-Funktionstaste 3-6, 
4-49 

ANSLSYS 2-6, 4-38 

Assembler-Unterprogramm 7-1 

Attribut 1-2, 1-4, 1-31 

Attributbyte 2-1 

Attributpuffer 4-63 

Auswahlmöglichkeiten in FORMS 
1-21 

Auto-Mode 1-48 


B 

Background 1-31 
Benutzer-Funktionstaste 3-5, 4-46 
Benutzerattribut 2-6, 2-8, 4-38 
Betriebssystemmodus 8-1 
Bildschirmattribut 1-11, 2-1 
Bildschirmmaske 1-1 

Blink 1-31 

Blinken 2-2 


C 

CALL 4-1 

COBOL-Anweisung generieren 1- 
18 

COBOL-Datendefinition 
generieren 1-11 

COBOL-Schalter 4-22 


Code segment 7-4 
COPY 1-11 
CRT-STATUS-Klausel 4-51 
Cursor 
verändern 4-38 
positionieren 4-66 
Cursorblock 4-40 


D 

Data-Mode 1-7 

Dateı löschen 4-32 
Dateiname 4-17 
Dateispezifikation 4-17 
Daten 1-2, 1-7 
Dialog-Testlauf 9-1 
Directory 4-22 
Directory-Menü 6-1 

DOS 8-1 
DOS-Kommandozeille 4-22 
DOS-Returncode 4-53, 4-60 
Draw 1-35 

Draw-Menü 1-5 

Drucker testen 4-60 


E 

Entpacken eines Bytes 4-69 
EXE2BIN 7-1 

EXIT 8-2 


I-1 


Index 


F 

Foreground 1-31 
Form screen 1-1 
FORMS 1-1 
FORMS-Dateı 1-52 
FORMS-Menü 1-2 


G 
Generate-COBOL-Menü 1-11 
Generieren 
COBOL-Anweisung 1-18 
COBOL-Datendefinition 1-11 


H 

Help-Bibliothek 5-1, 5-4 
Help-Maske 5-1 
HELP.LIB 5-4 
Hilfsinformation 5-3 
Hintergrunddarstellung 2-2 


I 

Implementierung 5-5, 6-4 
Indexprogramm 1-42, 1-46 
Intensity 1-31 


K 
Kombinierte Programmaufrufe 4- 
21 


L 

Laufwerk 4-17 
Lichtintensität 2-2 

LINK 7-1 

LINKAGE SECTION 4-2 
Löschen einer Datei 4-32 


M 
Manual-Mode 1-48 


I-2 


Maskengenerator 1-1 
Maskenname 1-16 
MASM 7-1 


N 
NAMESCR 1-15 
NAMESCREEN 1-15 


OÖ 
Offset 4-8 


P 

Packen eines Bytes 4-67 

Parameter 4-31 

Parameter-Liste 4-1 

Parameterübergabe 7-6 

Passwort-Geheimhaltung 4-42 

Port 4-13 

Positionierung des Cursors 4-66 

Programmieren der 
Funktionstasten 3-1, 4-53 


R 

REDEFINES-Klausel 1-12 
RTS.BIN 7-3 
RTS.BIN-Datei 7-5 
RUN-TIME-Schalter 4-22 


S 

S:HELP 5-1 
S:NAME 6-1 
Segment 4-8 

Skeleton Program 1-19 
Sonderfunktion 4-46 
Sonderzeichen 1-6 
Stack segment 7-4 
Stackaufbau 7-4 
Standard-Format 4-4 


Index 


T 

TASTATUR-STATUS 3-9 
Tastenfunktionen in FORMS 1-20 
Texte 1-2 


U 

Unterfunktion 4-3 

Unterprogramm für spezielle 
Funktionen 4-1 


V 

Variablen 1-7 

Voranzeige von ACCEPT-Feldern 
4-44 

Vordergrunddarstellung 2-2 


x 

X"82" 4-5 
X"83" 3-9, 4-6 
x"85" 4-8 
X"86" 4-11 
x"87" 4-13 
X"88" 4-15 
X"8C" 4-17 
X"8D" 4-19 
X"91" 4-21 
X"94" 4-10 
X"95" 4-12 
X"96" 4-14 
X"97" 4-16 
X"AT" 4-37 
X"AF" 3-6, 4-41 
X"BO" 3-4, 4-53 
X"B7' 2-7, 4-61 
X"D9" 4-64 
X"E5" 4-65 
X"E6" 4-66 
X"F4" 4-67 
X"F5" 4-69 


MICRO FOCUS ist der führende Hersteller 
von Entwicklungswerkzeugen in COBOL auf 
Microcomputern. Die MICRO-FOCUS-Produk- 
te sind für eine breite Palette von 8-,16-und 32- 
Bit-Micros und -Minis verfügbar und unterstüt- 
zen Betriebssysteme wie CP/M, CP/M 86, 
MS-DOS, PC-DOS, CCP/M, CDOS, XENIX und 
UNIX, inkl. Multiuser-Anwendungen und 
PC-Netzwerke. 


MICRO FOCUS hat 1976 den ersten 
COBOL Compiler für den Microprozessor des 
Typs 8080 entwickelt und den ersten COBOL 
Compiler auf Microcomputern, LEVEL II CO- 
BOL, der das beste GSA-Zertifikat „High Level 
ANSI 74 and error free“ vom US Government 
Software Testing Center erhielt. Im Juni 1986 
hat VS COBOL Workbench als erstes COBOL- 
System weltweit den ANSI '85 GSA-Test mit 
„error free" bestanden. 


MICRO FOCUS und LEVEL II COBOL sind 
von mehr als 100 führenden Computerherstel- 
lern, darunter auch die UNIX-Gruppe X/OPEN, 
tausenden von kommerziellen Software-Häu- 
sern und Großanwendern weltweit mit über 
280.000 Installationen zum Industriestandard 
für alle Micro- und Mini-Systeme erhoben 
worden. 


MICRO FOCUS ist ein multinationales Un- 
ternehmen mit Hauptsitz in Newbury, England 
und weiteren EntwicklungszentreninPaloAlto/ 
California, Tokio und München. Zuständig für 
Deutschland, Österreich und die Schweiz: 


MICRO FOCUS 


MicroFocus GmbH Edelsbergstraße 10° D-8000 München 21 089/5760 91 
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FORTRAN 7] 
für PCs und 
Großrechner 


Fur alle Rechner mit dem 
statleISSTICHAELNIDIONF 
OBioRweaa N 


Eine Einführung mit vielen Beispie- 
len. Der Einsatz von FORTRAN 77 
wird unter MSDOS 3.20, CDOS 4.} 
und UNIX V.2 näher erläutert. Zu den 
einzelnen Statements sind viele Bei- 
spiele verständlich erläutert abge- 
bildet; die UNIX-Komponenten ASA, 
EFL, FSPLIT, RATFOR und SDB werden 
näher beschrieben. 

1987. Ca. 400 Seiten. 


Geb.Ca.DM 78,-/Fr.78.-/5 608,- 
ISBN 3-88322-180-5 


R.Habib EEMMEEEEEEEEN 


GOBOL 


für PCs 


PROFESSIONAL 
COBOL EEE 


PERSONAL BEE 
| ____En1):]1)? 


LEVEL II COBOL 


Eine umfassende Einfuhrung ın 
die Programmuersprache COBOL 


anhand zahlreicher praktischer 
Progranını-Beispiele mit Strukto- 
grammien unter Berucksschtigung 
des ANSI-Standards ammmmmmmmmmms 


Für Anwender, die die Programmier- 
sprache COBOL einführen wollen, für 
Schüler und Studenten, die COBOL 
und die Grundlagen der strukturier- 
ten Programmierung beherrschen 
wollen, und für Professionelle, die 
ihre Anwendungen von Großrechen- 
anlagen auf Microcomputer umstel- 
len wollen. 

1986. 720 Seiten. 


Geb. DM 78,-/Fr. 78.-/S 608,- 
ISBN 3-88322-131-7 


G,Schnellhardt en" 

übertragung 

und Daten" 

\ austausch 
\ 


Bm x. V24,RS232C Schnittstellen 


ABEEN N\ und Akustik-Koppler 
EBEN richtigeingesetzt 
| 7, J \ 
\ ei JA. 2. Auflage - 
N a erweitert 
NN u er ge um DATEX P- 


> und Mailbox- 
ME Informationen 


Der Leser wird mit den verschie- 
denen Prozeduren der Datenfern- 
übertragung, den Schnittstellen 
V24 und RS 232 vertraut gemacht. 
Der Umgang mit Akustik-Koppler, 
Mailbox und die Handhabung von 
Datex-P wird allgemeinverständlich 
erläutert. 

1985. 2., erw. Aufl. 192 Seiten. 


Geb. DM 48,-/Fr. 48.-/5 374,- 
ISBN 3-88322-145-7 


Aneignung von solidem Grund- 
wissen der Programmier-Technik 
und Programmier-Sprache Modula2 
(Nachfolger von Pascal) anhand 
zahlreicher Beispiele. Durch syste- 
matische Themenbehandlung zum 
Selbststudium und als Begleittext in 
Kursen geeignet. Mit vielen Übungen 
und Lösungen. Spezielle Kapitel für 
BASIC- und Pascal-Umsteiger. 

1986. 376 Seiten. 


Geb. DM 68,-/Fr. 68.-/5 530,- 
ISBN 3-88322-169-4 


Prof. P Steinbuch Prof. A.Moos 


Dialog-Daten- 
verarbeitung 


Handbuch fürden Praktiker 


iwr 


Dieses Buch stellt erstmalig die Dia- 
log-Datenverarbeitung umfassend 
vor. Schwerpunkte sind: Welche Auf- 
gaben kann man lösen? Nötige Kom- 
ponenten, Funktionen? Programme 
rationell erarbeiten, wirtschaftlich 
erwerben, einführen und nutzen. 
1984. 192 Seiten. 


Geb. DM 56,-/Fr. 56.-/5 437,- 
ISBN 3-88322-093-0 


A.Peter Zimmermann 


Programmier- 
Techniken 


Qyy>= 


ZN 


Mit COBOL- und Turbo-Pascal- 
Programm-Beispielen 


Ein Buch für interessierte Laien, die 
über das Spielen mit dem Computer: 
hinausgewachsen sind und sich be- 
reits mit der Lösung ernsthafterer 
Probleme beschäftigen, sowie für 
Programmierer: für sie werden Tech- 
niken beschrieben, die, im Berufs- 
leben sinnvoll angewendet, die 
Arbeit effizienter gestalten. 

1986. 322 Seiten. 

Geb. DM 58,-/Fr. 58.-/S 452,- 

ISBN 3-88322-170-8 


Peter P Völzing 


\ 


Kurzbeschreibung aller 
internen/externen Kommandos 
und Dienstprogramme 


Neben allgemeinen Kommandos de- 
tailliete Beschreibungen der 
Dienstprogramme. Alle Interrupts 
und Systemfunktionen werden in 
leichtverständlicher Form angebo- 
ten: kleine Assembler-Beispiele in- 
nerhalb einzelner Beschreibungen. 
Sowohl für Software-Anwender als 
auch Systemspezialisten. 

1985. 292 Seiten. 


Geb. DM 68,-/Fr. 68.-/5 530,- 
ISBN 3-88322-142-2 


Dieses Buch wendet sich an alle 
Anwender vonMSDOSderVersionen 
2.0/2.11 und ist Ähnlich einer pro- 
grammierten Unterweisung auf- 
gebaut. Der Aufbau und die 
Wirkungsweise der einzelnen 
Befehle werden systematisch und 
detailliert erklärt. 

1984. 212 Seiten. 


Geb. DM 56,-/Fr. 56.-/$ 437,- 
ISBN 3-88322-088-4 


Peter P Völzing 


Kurzbeschreibung aller 
internen/externen Kommandos 
und Dienstprogramme von 
MSDOS 3.20 


Neben allgemeinen Kommandos 
detaillierte Beschreibung der 
Dienstprogramme. Alle ‚Interrupts 
und Systemfunktionen werden in 
leichtverständlicher Form angebo- 
ten: kleine Assembler-Beispiele in- 
nerhalb einzelner Beschreibungen. 
Sowohl für Software-Anwender als 
auch Systemspezialisten. 

1986. 500 Seiten. 


Geb. DM 78,-/Fr. 78,-/S 608,- 
ISBN 3-88322-174-0 


Das Buch spannt einen Bogen von 
den grundlegenden Anwendungen 
des MSDOS” Vers. 3.0 + 3.1. über 
den Bereich der Arbeiten mit un- 
terschiedlichen Directories hin zu 
Batch-Prozeduren und deren An- 
wendungen. Die Unterschiede bei 
den Standard-MSDOS-Anweisun- 
gen und den Anweisungen beim 
IBM PCDOS wurden berücksichtigt. 
1986. 324 Seiten. 


Geb. DM 58,-/Fr.58.-/S 452,- 
ISBN 3-88322-159-7 


Peter P Völzing 


Kurzbeschreibung aller 
internen/externen Kommandos 
und Dienstprogramme 

Auch für CCP/M 86 gültig 


Zielsetzung des Buches ist es, die 
wichtigsten Bestandteile von CDOS 
4.linkompakter Formzusammenzu- 
fassen. Neben den allgemeinen 
Kommandos detaillierte Beschrei- 
bungen der Dienstprogramme, auch 
alle Interrupts und Systemfunktio- 
nen. Für Software-Anwender und 
Systemspezialisten. 

1986. Ca. 350 Seiten. 


Geb. DM 68,-/Fr. 68.-/S 530,- 
ISBN 3-88322-132-5 
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Buch von Anwendern für Laien, auch 
als Einstieg in die Computerei geeig- 
net. Inhalt: Geschichte der PC, 
Grundlagen, Arbeiten mit Disketten 
und Festplatten, Dateien, Überblick 
über MSDOS 2.0, das Arbeiten mit 
dem Standard-Hilfsprogramm, Tips 
und Tricks. 

1984. 272 Seiten. 


Geb. DM 58,-/Fr. 58.-/S 452,- 
ISBN 3-88322-072-8 


Raouf Habib 


COBOL für PCs — 
Praktische Anwendungen 


Trotz aller Entwicklungen auf dem EDV-Markt bleibt COBOL - dank 
ihrer Leistung - die weltweit führende Programmiersprache. 


Die von Micro Focus entwickelte Compilerserie PROFESSIONAL 
COBOL, PERSONAL COBOL und LEVEL II COBOL steigert diese 
Leistung so, daß dem anspruchsvollen Programmierer nichts mehr 
im Wege steht, mit COBOL ein professionelles und effizientes 
Software-Handling zu betreiben. 


In diesem Buch findet der Leser eine ausführliche Beschreibung des 
zu dieser Compilerserie entwickelten Maskengenerators FORMS. 


- Es werden die systeminternen Assembler-Routinen zur 
Steuerung des Bildschirms und verschiedener 
Hardwareeinrichtungen im Detail erläutert. 

- Das Buch setzt sich mit den Techniken für die Dialoganwendung 
auseinander, die die Qualität der Software hinsichtlich ihrer 
Benutzerfreundlichkeit und des Komforts verbessern. 

- Vier Assembler-Unterprogramme sorgen für die Beschreibung 
der Schnittstellen zwischen COBOL und der Assembler- 
programmierung. 

- Gezeigt wird hier alles anhand von 35 getesteten Programm- 
beispielen. Diese Programme befassen sich mit systemnaher 
Programmierung auf DOS-Ebene und bieten dem Leser zahl- 
reiche Anregungen zur Entwicklung von professionellen 
Anwendungen, die den Wünschen der Anwender gerecht 
werden. Die meisten dieser Anwendungen sind so entwickelt, daß 
sie sich ohne viel Aufwand in andere Anwendungen integrieren 
lassen. 


Programme sind auch auf Diskette erhältlich 


Bisher erschienen: COBOL für PCs, PROFESSIONAL COBOL, 
PERSONAL COBOL, LEVEL II COBOL 

Eine umfassende Einf. in die Programmiersprache COBOL anhand 
zahlreicher praktischer Programm-Beispiele mit Struktogrammen 
unter Berücksichtigung des ANSI-Standards 


ISBN 3-88322-185-6 


R.Habib IMMMMMMMEEEEN 


Praktische IM 
nwendungen 


